Text Berkedip dan Berwarna-warni pada Visual Basic 6.0

Source code berikut untuk membuat Text Berkedip dan Berwarna-warni pada Visual Basic.

Buat 1 project dengan :
1 Form
1 Label
1 Timer

Copy source code berikut pada Form :
Dim i As Long
Dim merah, hijau, biru As Integer

Private Sub Form_Load()
i = 0
Timer1.Interval = 1500
Label1.Caption = "nassroom.blogspot.com"
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0
merah = Int(255 * Rnd)
hijau = Int(255 * Rnd)
biru = Int(255 * Rnd)
Label1.ForeColor = RGB(merah, hijau, biru)
If i Mod 2 = 0 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
DOWNLOAD Full Source Project
Comments
0 Comments