TEXT BLINK WITH YOUR FORM
TEXT BLINK WITH YOUR FORM
Rate TEXT BLINK WITH YOUR FORM
(1(1 Vote))
'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
TEXT BLINK WITH YOUR FORM Comments
No comments yet — be the first to post one!
Post a Comment