Private Sub Timer1_Timer()
If Form1.Left < 300 Then Form1.Left = 0
If Form1.Top < 300 Then Form1.Top = 0
If Form1.Left > Screen.Width - Form1.Width - 300 Then Form1.Left = Screen.Width - Form1.Width
If Form1.Top > Screen.Height - Form1.Height - 700 Then Form1.Top = Screen.Height - Form1.Height - 400
End Sub