• Home
 · 
• Custom Controls/Forms/Menus
 · 
• TEXT BLINK WITH YOUR FORM

TEXT BLINK WITH YOUR FORM

TEXT BLINK WITH YOUR FORM

Rate TEXT BLINK WITH YOUR FORM

• 1
• 2
• 3
• 4
• 5

(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