Buat Label Berjalan di VB6

Posted in category

Nih Gua Share cara buat Label berjalan di vb6


1. Sediakan 1 Buah Label dan 1 buah timer
2. Pada Timer Isikan Interval nya 20 atau berpa aja (makin sedikit interval makin cepat geraknya)

Kemudian Isikan Kode Berikut di 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


Selamat Mencoba... !!! :D

1 komentar:

  1. web communication Says:

    4 Juni 2012 20.41

    tq mas ilmunya sangat membantu :D

Posting Komentar

Created By Andi Hakim. Diberdayakan oleh Blogger.