[求助]求助时间不对啊
请教各位大虾们，今天以下代码：
Dim a As Long
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 50
If Label1.Left < -Label1.Width Then
Label1.Left = Picture1.Width
End If
Label1.Move Label1.Left, 1500
Dim a As Long, b As Long
Dim s As Long, c As Integer
b = Timer - a
s = b Mod 60
c = 5 - s
Label2.Caption = c
If c = 0 Then
Form3.Show
Unload Me
End If
End Sub
