Public Class Form1
Private Sub form1_load()
Timer1.Interval = 0
End Sub
Private Sub command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 200 '自动
End Sub
Private Sub command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call mymove() '手动
End Sub
Private Sub timer1_timer()
Call mymove()
End Sub
Sub mymove()
Label1.Left = (Label1.Left + 20)
If Label1.Left > Me.Left Then Label1.Left = 0
End Sub
End Class

改变事件过程中上下移动为左右移动。
初学者这个time控件不会用。

是没有达到你要的效果？还是报错了？
Timer1.Interval 不应该为0，如果你想让他一开始不能用，可以用Enabled的属值，True表示可用，False表示不可用。

If Label1.Left > Me.Left Then Label1.Left = 0
改为If Label1.Left > Me.WidthThen Label1.Left = 0