Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Command3_Click()
End

End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If

End Sub