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 |