• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Shake the form in two to three lines of code

Shake the form in two to three lines of code

Shake the form in two to three lines of code

Rate Shake the form in two to three lines of code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer2.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Form1.Left = 0
Form1.Top = 0
End Sub

Private Sub Timer1_Timer()
If Form1.Left = 0 Then
  Form1.Left = 100
Else
  Form1.Left = 0
End If
End Sub

Private Sub Timer2_Timer()
If Form1.Top = 0 Then
  Form1.Top = 100
Else
  Form1.Top = 0
End If
End Sub