Membuat Text Berjalan

Private Sub Timer1_Timer()
If (Label1.Left < Me.Width) Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = -(Label1.Width)
End If
End Sub