home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap04 / 04vbu02 / profile.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-07-24  |  1.2 KB  |  45 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2100
  5.    ClientLeft      =   150
  6.    ClientTop       =   1470
  7.    ClientWidth     =   3225
  8.    Height          =   2505
  9.    Left            =   90
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2100
  12.    ScaleWidth      =   3225
  13.    Top             =   1125
  14.    Width           =   3345
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Run"
  17.       Height          =   480
  18.       Left            =   1080
  19.       TabIndex        =   0
  20.       Top             =   1380
  21.       Width           =   1140
  22.    End
  23. Attribute VB_Name = "Form1"
  24. Attribute VB_Creatable = False
  25. Attribute VB_Exposed = False
  26. Option Explicit
  27. Private Sub Command1_Click()
  28.     Dim iRet As Integer
  29.     Dim i As Integer, j As Integer
  30.     iRet = StartProfiler("times.out")
  31.     iRet = MarkStartTime()
  32.     For i = 1 To 5
  33.         iRet = MarkStartTime()
  34.         For j = 1 To 100
  35.             Cls
  36.             Print j
  37.             Refresh
  38.         Next
  39.         iRet = MarkEndTime("Loop " & Str$(i))
  40.     Next
  41.     iRet = MarkEndTime("Total LoopTime")
  42.     iRet = StopProfiler()
  43.     Refresh
  44. End Sub
  45.