home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP35 / 309X3701.TXT next >
Encoding:
Text File  |  1998-05-03  |  946 b   |  45 lines
  1.  
  2. Private Sub cmdTest_Click()
  3.  
  4.     Dim Start, Finish, TotalTime
  5.  
  6.     If Option1.Value = True Then
  7.         Start = Timer
  8.  
  9.         'Put the code you wish to time
  10.         'here!
  11.  
  12.         'End of Code time test
  13.         Finish = Timer
  14.     Else
  15.         'Option 2 selected
  16.         Start = Timer
  17.  
  18.         'Put the code you wish to time
  19.         'here!
  20.  
  21.         'End of Code time test
  22.         Finish = Timer
  23.  
  24.     End If
  25.  
  26.     TotalTime = Finish - Start  ' Calculate total time.
  27.  
  28.     '
  29.     'Set up display results
  30.     '
  31.     If Option1.Value = True Then
  32.         'Option 1
  33.         lblOpt1.Caption = "Total time to execute " & _
  34.                             Option1.Caption & ": " & _
  35.                             TotalTime
  36.     Else
  37.         'Option 2
  38.         lblOpt2.Caption = "Total time to execute " & _
  39.                             Option2.Caption & ": " & _
  40.                             TotalTime
  41.  
  42.     End If
  43.  
  44. End Sub
  45.