by Kiran (3 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 31st July 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Ultimate Graphix
VBcoders
'Set the timer control's interval property to 250
'Add the following code in the timer event of timer control
Private Sub Timer1_Timer()
Randomize
Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.Move Rnd * 12000, Rnd * 9000, Rnd * 12000, Rnd * 9000
End Sub