Moving Text

Sample Codes Here:
Private Sub tmr1_Timer()
Dim str As String str = Form1.lblMoveText.Caption str = Mid$(str, 2, Len(str)) + Left(str, 1) Form1.lblMoveText.Caption = str
End Sub
YOUTUBE CHANNEL: http://www.youtube.com/user/MrJomarflores123
OFFICIAL WEBSITE: http://jstechtutor.blogspot.com/