[Code] How To Move Caption !! **Shared By mjridoy5**

Public Function MoveCap(Txt As String) As String
strtext = Right$(Txt, Len(Txt) - 1) & Left$(Txt, 1)
MoveCap = strtext
End Function
Private Sub Timer1_Timer()
Me.Caption = MoveCap(Me.Caption)
End Sub