FrmDocking

Sub Docking(Form As Form)
'Put this in a Timer This will dock the form

'to your screen edges

If Form.Left < 200 Then Form.Left = 0
If Form.Top < 200 Then Form.Top = 0
If Val(Form.Width + Form.Left) > Val(Screen.Width - 200) Then _
Form.Left = Val(Screen.Width - Form.Width)
If Val(Form.Height + Form.Top) > Val(Screen.Height - 200) Then _
Form.Top = Val(Screen.Height - Form.Height)
End Sub