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
[Code] How To Move Caption !! **Shared By mjridoy5**
Read User's Comments(0)
[Project] Get Drive Infos
Get all Drive In Text Box and Save as txt File !
Download Link: Click To Download
RAR Password: DevelopersCrew
[Project] Animation Control
Animation Control .. load anumation and play !!
Download Link: Click To Download
RAR Password: DevelopersCrew
Subscribe to:
Posts (Atom)