• Home
 · 
• Graphics
 · 
• Ultimate Graphix

Ultimate Graphix

Ultimate Graphix

Rate Ultimate Graphix

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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