ｈｅｌｐｐｐｐｐｐ..

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 500
If Label1.Left >= 0 Then
Label1.Left = Label1.Left - 800
Else
Label1.Left = 3960
End If If Label2.Left >= 0 Then
Label2.Left = Label2.Left - 800
Else
Label2.Left = 3960
End If If Label3.Left >= 0 Then
Label3.Left = Label3.Left - 800
Else
Label3.Left = 3960
End If If Label4.Left >= 0 Then
Label4.Left = Label4.Left - 800
Else
Label4.Left = 3960
End If
End Sub
为什么会没有反应...