Private Declare Function GetTickCount Lib "kernel32" () As Long 
Public TStart, TNow, TLast, TMinute, TSecond, TTotal 

Private Sub Command1_Click() 
Command1.Enabled = False: Command2.Enabled = True: Command4.Enabled = False 
Text1.Text = "" 
End Sub 

Private Sub Command2_Click() 
Command3.Enabled = True 
Timer1.Enabled = True 
TTotal = TLast + TTotal 
TStart = GetTickCount 
Call Timer1_Timer 
End Sub 

Private Sub Command3_Click() 
Command1.Enabled = True: Command2.Enabled = False 
Command3.Enabled = False: Command4.Enabled = True 
Timer1.Enabled = False 
TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0 
End Sub 

Private Sub Command4_Click() 
End 
End Sub 

Private Sub Form_Load() 
Command1.Caption = "開始": Command2.Caption = "計(jì)時(shí)": Command3.Caption = "停止": Command4.Caption = "退出" 
Command1.Default = True: Command2.Enabled = False: Command3.Enabled = False 
Timer1.Interval = 1000: Timer1.Enabled = False 
TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0 
End Sub 

Private Sub Timer1_Timer() 
TNow = GetTickCount 
TLast = Val(TNow - TStart) \ 1000 
TMinute = TLast \ 60 
TSecond = TLast Mod 60 
Text1.Text = "距你本次點(diǎn)擊[計(jì)時(shí)]的時(shí)間為" & TMinute & "：" & TSecond & vbCrLf & "從第一次點(diǎn)擊[計(jì)時(shí)]到本次點(diǎn)擊經(jīng)過了：" & TTotal & "秒" 
End Sub