Dim flag As Integer
Private Sub Form_Load()
  flag = 0
End Sub
Private Sub Command1_Click()
  If Command1.Caption = "移动" Then
'    Timer1.Enabled = ?
    Command1.Caption = "暂停"
  Else
    Timer1.Enabled = False
    Command1.Caption = "移动"
  End If
End Sub
Private Sub Command2_Click()
  End
End Sub
Private Sub Timer1_Timer()
  Select Case flag
      Case Is = 0
'        Label1.Left = Label1.Left  ?  100
        If Label1.Left + Label1.Width > = Form1.Width Then flag = 1
      Case Is = 1
'        Label1.Left = Label1.Left  ?  100
        If Label1.Left < = 0 Then flag = 0
  End Select
End Sub