membuat animasi tulisan berjalan

1. Buat project baru dengan satu form.
2. Letakkan kontrol berikut : satu timer dan satu label.
3. atur property Timer1 dengan interval = 10

Ketik kode berikut pada form.

Code:

Private Sub Timer1_Timer() Label1.Left = Label1.Left - 50 If Label1.left < 0 Then  Label1.Left = Me.Width End If End Sub

Kalok yang ini biar tulisannya berjalan naik turun...

Ganti kode diatas dengan kode yang ini...

Code:

Private Sub Timer1_Timer() Static Atas As Boolean Label1.Top = Label1.Top + IIf(Atas, -50, 50) If Label1.Top < 0 Then Atas = False ElseIf Label1.Top > Me.Height - Label1.Height - 300 Then Atas = True End If End Sub