Visual Basic 6.0 : 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

Watch video below