[VB] Membuat Animasi Teks Marquee

Deklarasi:
1 Form
1 Timer
1 Label

Source Code:

Private Sub Form_Load()
 Label1.Move Form1.ScaleWidth - Label1.Width
 Timer1.Enabled = True
 Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
 Static x As Integer
 Call Label1.Move(Label1.Left - x, Label1.Top, Label1.Width, Label1.Height)
 x = x + 10
 If (Label1.Left < -Label1.Width) Then Label1.Left = Form1.ScaleWidth: x = 0
End Sub 

Jangan Lupa Komentar Yaa..