• Home
 · 
• Custom Controls/Forms/Menus
 · 
• =EARTHQUAKE= Vibrates the form on the formload

=EARTHQUAKE= Vibrates the form on the formload

=EARTHQUAKE= Vibrates the form on the formload

Rate =EARTHQUAKE= Vibrates the form on the formload

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

                     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