KeepForm

Sub KeepOnScreen (Frm As Form)
If Frm.Left < 0 Then Frm.Left = 0
If Frm.Top < 0 Then Frm.Top = 0
If Frm.Left > (Screen.Width - Frm.Width) Then Frm.Left = Screen.Width - Frm.Width
If Frm.Top > (Screen.Height - Frm.Height) Then Frm.Top = Screen.Height - Frm.Height
End Sub