Membuat Animasi Text Berjalan Dan Berwarna
Buatlah
Form Seperti Dibawah Ini:

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
Posting Komentar
Tulis komentar anda disini.....