Label Berjalan

Kode ini akan menjalankan / menggerakkan kontrol Label secara horisontal (dari kanan ke kiri) dan vertikal (dari bawah ke atas). Buat Form baru dengan sebuah Label dan sebuah Timer (Enabled=True; Interval=20).

[ VB 6.0 ]
Untuk menggerakkan secara horisontal, ketikkan kode berikut di bagian 'Timer1_Timer'.

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

Sedangkan secara vertikal, ketikkan kode berikut di bagian 'Timer1_Timer'.

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

[ VB .NET ]
Untuk menggerakkan secara horisontal, ketikkan kode berikut di bagian 'Timer1_Tick'.

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

Sedangkan secara vertikal, ketikkan kode berikut di bagian 'Timer1_Tick'.

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