希望能用到下面的语句:
Private Sub Form_Load()
Dim s As Integer, M As Integer, H As Integer
len_s = Sqr((lineS.Y2 - lineS.Y1) ^ 2 + (lineS.X2 - lineS.X1) ^ 2)
len_M = Sqr((lineM.Y2 - lineM.Y1) ^ 2 + (lineM.X2 - lineM.X1) ^ 2)
len_H = Sqr((lineH.Y2 - lineH.Y1) ^ 2 + (lineH.X2 - lineH.X1) ^ 2)
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
pi = 3.14159
t = Timer
Dim s As Integer, M As Integer, H As Integer, len_t As Integer
lineS.X2 = lineS.X1 + len_t * Sin(pi * Timer Mod 60 / 30)
lineS.Y2 = lineS.Y1 - len_t * Sin(pi * Timer Mod 60 / 30)