by N.SWAMINATHAN (7 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 6th May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
TEXT BLINK WITH YOUR FORM
'TIMER INTERVAL IS 250
Private Sub Timer1_Timer()
Randomize
'Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
'Me.Move Rnd * 12000, Rnd * 9000, Rnd * 12000, Rnd * 9000
Label1.ForeColor = QBColor(Rnd * 13)
Label1.Left = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.Move Rnd * 10000, Rnd * 9000, Rnd * 12000, Rnd * 9000
Label2.Left = Label2.Left + 100
Label2.ForeColor = QBColor(Rnd * 15)
End Sub