Sabtu, 04 Mei 2013

Cara Buat Label Berjalan Di Visual Basic 6.0

Caranya 
  1. Buat 1 Label
  2. Buat 1Timer
Beri Code Di Timer :

Horizontal :

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


Atau


Vertikal :

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

Selamat Mencoba : )