How can I make sure the edges of a form never go beyond the edge of the screen.
This permits the form edges to be hidden until the mousebutton is released.

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Userform.Left < 0 then Userform.Left = 0
If Userform.Top < 0 then Userform.Top = 0
End Sub

T.I.A.
Geoff