vb秒表代码程序

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Timer1_Timer()
Dim a As SYSTEMTIME

GetSystemTime a

With a
Label1 = .wHour & ":" & .wMinute & ":" & .wSecond & ":" & Format(.wMilliseconds / 1000, "0.0")
End With
End Sub

这个程序还需要一个清零按钮，怎么添加啊

在窗体中添加一个按钮Command1，然后添加如下代码

Private Sub Command1_Click()
Static i As Integer
If i = 0 Then

Timer1.Enabled = False
Label1 = "00:00:00:0.0"
i = 1
Else
Timer1.Enabled = True
i = 0
End If
End Sub
点一下清零，再点一下继续读秒

Timer1.Enabled = False

Label1="00:00:00:0.0"

这样试试~