04vbu02

Vt, Profile - Microsoft Visual Basic [ru

£ile Edit View insert Bun lools A Q|-_Ij_ecj-

&

&

0 Uj

gig	w

H Forml

Private Suto Commandl_Click()

Dim iRet As Integer

Dim i As Integer, j As Integer

iRet = StartProfiler("times.out"]

iRet = HarkStartTime()

13

Run

gJPROFILE.FRM Forml

^ PRO FILER. BAS profiler

For i = 1 To 5

iRet = MarkStartTime() For j = 1 To 100 Cis

Print j Refresh

Next

iRet = MarkEndTime("Loop " £ Str$(i))

Next

iRet = MarkEndTime("Total LoopTime")

iRet = StopProfiler() Refresh

End Suto

^JJ

j

ijB Start | ^ Microsoft W... |    ; Control Panel | Profile • Micr... 11 Q Form

6:08 PM