怎樣vb編程讓文字移動到窗口邊緣時停止移動

Private Sub Form_Load()

Timer1.Interval = 40

End Sub

Private Sub Timer1_Timer()

If Label1.Left >= Me.Width - Label1.Width Then Timer1.Enabled = False

Label1.Left = Label1.Left + 20

End Sub