Cara Membuat Label Berjalan dengan Warna-Warni Seperti Bintang Menggunakan VB6.0

Kali ini saya akan membagikan cara membuat Label berjalan dengan warna warni Seperti bintang menggunakan Visual Basic, siapa tahu anda membutuhkannya entah untuk bio atau lainnya :) hehehe...
Langsung saja kita buat :

1. Buat Form baru :

2. Tambahkan Label dan Tulis di Caption sesuai ke inginan kamu, nii contohnya seperti ini:

3.  Tambahkan Timer, intervalnya 100 :

4. Setelah itu copy code di bawah ini :

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

    If (Label1.Left + Label1.Width) <= 0 Then

        Label1.Left = Me.Width

    End If

    Label1.Left = Label1.Left - 100

End Sub

Kemudian klik tombol start untuk menjalankannya  :)

-----Sekian dulu tutorial dari saya, semoga sukses, tetap berkarya dan semoga membantu :) --------