Membuat Label Berjalan

Kali ini kita akan belajar membuat label berjalan di form. Bahan-bahan yang harus disediakan adalah:
- 1 buah form
- 1 buah label
- 1 buah timer (Properti: Enabled = True dan Interval = 25)

Untuk cara membuatnya, simak langkah-langkah berikut:

VB 6.0
Ketikkan kode berikut pada Timer1_Timer:
Horizontal

Label1.Left = Label1.Left - 15
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth

Vertikal

Label1.Top = Label1.Top - 15
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ScaleHeight) Then Label1.Top = Me.ScaleHeight

VB .NET
Ketikkan kode berikut pada Timer1_Tick:
Horizontal

Label1.Left = Label1.Left - 2
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ClientRectangle.Width) Then Label1.Left = Me.ClientRectangle.Width

Vertikal

Label1.Top = Label1.Top - 2
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ClientRectangle.Height) Then Label1.Top = Me.ClientRectangle.Height

DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET