VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



TEXT BLINK WITH YOUR FORM

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

Rate 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


Download this snippet    Add to My Saved Code

TEXT BLINK WITH YOUR FORM Comments

No comments have been posted about TEXT BLINK WITH YOUR FORM. Why not be the first to post a comment about TEXT BLINK WITH YOUR FORM.

Post your comment

Subject:
Message:
0/1000 characters