Marquee Caption pada Visual Basic 6.0

Source code berikut untuk membuat form Text Berjalan pada Visual Basic.

Buat 1 project dengan :
1 Form
1 Label
1 Timer

Copy source code berikut pada Form :
Private Sub Form_Load()
Label.Caption = " nassroom.blogspot.com "
End Sub

Private Sub Timer1_Timer()
a = Left(Label.Caption, 1)
b = Len(Label.Caption)
c = Right(Label.Caption, b - 1)
Label.Caption = c + a
End Sub
DOWNLOAD Full Source Project
Comments
0 Comments