Make Marque on Form1.Caption

Are you confusing to make Make Marque on Form1.Caption. Try this, This Sample Moves a Forms caption from left to right.

1. Make Form1
2. Make Timer
3. Paste this code to your vb programs

'------------------------
Dim str As String
Dim leng As Integer

Private Sub Form_load()
str = "Make Marque on Form" + 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
'-----------------

good job

Related Post :