Moving your form upside down

Hi guys! this is the sample code of moving your form upside down. Hope this will help you. Enjoy!
Happy coding! :)


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

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

Private Sub Command3_Click()
Timer3.Enabled = True
End Sub

Private Sub Command4_Click()
Timer4.Enabled = True
End Sub

Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 10
Timer3.Interval = 10
Timer4.Interval = 10
End Sub

Private Sub Timer1_Timer()
Me.Top = Me.Top - 10
End Sub

Private Sub Timer2_Timer()
Me.Top = Me.Top + 10
End Sub

Private Sub Timer3_Timer()
Me.Left = Me.Left + 10
End Sub

Private Sub Timer4_Timer()
Me.Left = Me.Left - 10
End Sub