Membuat Text Berjalan dengan VB 2008

Buka Visual Basic .Net kamu, terserah kamu mau yang 2002, 2005 atau 2008 Terserah Aja Sesekamu Pokok nya...

Buat Project baru, ketikan nama projek sesuai kreatifitas kamu. Jika sudah, tambahkan berberapa objek.

yaitu

label satu

dan letakkan dua timer

berikut pengaturan nya

Objek Properti Value

Label1 Text Animasi

Timer1 Enabled True

Interval 10

Timer2 Enabled False

Interval 10

Berikut adala yang harus anda ketikkan pada timer

Private Sub Timer1_Tick(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Left = Label1.Left + 1

If Label1.Left >= Me.Width - Label1.Width Then

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Timer2.Tick

Label1.Left = Label1.Left - 1

If Label1.Left <= 0 Then

Timer1.Enabled = True

Timer2.Enabled = False

End If

End Sub

End Class

Selamat Mencoba