MoveCaption
Dim str As String Dim leng As Integer Private Sub form_load() str = "Anil Iyengar" + Space(150) leng = Len(str) - 1 End Sub Private Sub Timer1_Timer() str = Left(Right(str, 1), leng) + Left(str, leng) Form1.Caption = str End Sub
Dim str As String
Dim leng As Integer
Private Sub form_load()
str = "Anil Iyengar" + Space(150)
leng = Len(str) - 1
End Sub
Private Sub Timer1_Timer()
str = Left(Right(str, 1), leng) + Left(str, leng)
Form1.Caption = str
End Sub
( movecaption.html )- by Paolo Puglisi
- Modifica del 17/12/2023