Cara membuat text berjalan di VB6

Kali ini saya akan mem-post tentang cara bikin text berjalan di VB6.. cekidot

1. Klik Start- pilih All Programs - pilih Microsoft Visual Studio Basic 6.0 - lalu klik Microsoft Visual Basic 6.0, maka tampilannya seperti di bawah ini :

2. Lalu tambahkan Object Label1 dan Timer1, kemudian letakkan di Form1, untuk lebih jelasnya lihat gambar di bawah ini :

3. Selanjutnya Isi Source Code dibawah ini, anda bisa Copy lalu Pastekan Codenya di Form1, caranya klik 2 kali pada Form1  atau klik kanan pada form1 lalu klik "View Code":

Private Sub Form_Load()
Label1.FontSize = 20
Label1 = "Cara Mudah Membuat Text Berjalan di Visual Basic 6.0"
End Sub

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

4. Setelah itu rubah nilai Interval di property Timer1 Menjadi 100,
5. Test deh, dengan cara klik F5
6. Jika mau di buat dengan format ".exe" klik File - Make Project1.exe

Selesaii kan??.. Jika kalian mau text berjalannya lebih cepat ubah interval pada Timer1 menjadi 50 atau kalau ingin lebih lama ubah valuenya menjadi 200