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

Private Sub UserForm_Layout()
If UserForm.Left < 0 Then UserForm.Left = 0
If UserForm.Top < 0 Then UserForm.Top = 0
End Sub

Will need a bit more work to deal with the bottom and right edge of the
screen.

RBS


"Geoff" wrote in message
...
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

Thank you.
I can calculate the right and bottom edges ok converting screen pixels to
points etc. It was the Layout event I was unaware of.

Geoff

"RB Smissaert" wrote:

Private Sub UserForm_Layout()
If UserForm.Left < 0 Then UserForm.Left = 0
If UserForm.Top < 0 Then UserForm.Top = 0
End Sub

Will need a bit more work to deal with the bottom and right edge of the
screen.

RBS


"Geoff" wrote in message
...
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