vbCoders Guest



Don't have an account yet? Register
 


Forgot Password?



=EARTHQUAKE= Vibrates the form on the formload

by The_Twiggman (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 30th January 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)

=EARTHQUAKE= Vibrates the form on the formload

Rate =EARTHQUAKE= Vibrates the form on the formload



                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
  'Coding To Make A Random Number Appear Between Two Values
End Function

'Just need a timer on the form with an interval
'Can change the values for horizontal and vertical

Private Sub Timer1_Timer()
horizontal = Rand(-100, 100)
vertical = Rand(-100, 100)
Form1.Left = Label1.Left + horizontal
Form1.Top = Label1.Top + vertical
End Sub

Download Snippet Download this snippet   Add to My Save List Add to My Saved Code

=EARTHQUAKE= Vibrates the form on the formload Comments

No comments have been posted about =EARTHQUAKE= Vibrates the form on the formload. Why not be the first to post a comment about =EARTHQUAKE= Vibrates the form on the formload.

Post your comment

Subject:
Message:
0/1000 characters