Membuat Animasi Text Berjalan Dan Berwarna



Buatlah Form Seperti Dibawah Ini:
Memuat foto
Ketiklah Listing Dibawah Ini:
Private Sub Form_Load()
Label1.FontSize = 25
Label1 = "www.herfikom.hexat.com"
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

Catatan
  • Ubah interval Timer menjadi 100


Program ini dibuat oleh Heri Afrizal di bireuen

Komentar

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word