vb怎么设置动态指针式秒表？

vb怎么设置动态指针式秒表？

Dim P As Single, SJ, SHI As Integer, FEN As Integer, MIAO As Integer

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
P = 3.1415926
End Sub

Private Sub Timer1_Timer()
SJ = Time
SHI = DatePart("H", SJ)
FEN = DatePart("N", SJ)
MIAO = DatePart("S", SJ)
If SHI >= 12 Then
SHI = SHI - 12
End If
Label5.Caption = FormatDateTime(SJ, 3)
Line2.X2 = 2760 + 1500 * Sin(P * (SHI * 30 + FEN / 2) / 180)
Line2.Y2 = 2760 - 1500 * Cos(P * (SHI * 30 + FEN / 2) / 180)
Line5.X2 = 2760 + 1920 * Sin(P * (FEN * 6 + MIAO / 10) / 180)
Line5.Y2 = 2760 - 1920 * Cos(P * (FEN * 6 + MIAO / 10) / 180)
Line1.X2 = 2760 + 2400 * Sin(P * MIAO * 6 / 180)
Line1.Y2 = 2760 - 2400 * Cos(P * MIAO * 6 / 180)
End Sub非常简单的。开始、暂停你自己高吧，暂停就是使 Timer1.Enabled = Fasle ,开始就是使 Timer1.Enabled = True 而已。