Dockable Windows

[Magedi]

How can one make a window to be docked on the either sides (left,top,bottom and right) of the screen without using 3rd party controls?.<br>
<br>
Magedi

 

[JJ1]

Try this out. I'm not sure if it's the tidiest way of doing things but it works.

You need to add the code within a timer event.

Private Sub Timer1_Timer()
If Me.Top < 240 Then
Me.Top = 0
End If

If Me.Left < 240 Then
Me.Left = 0
ElseIf Me.Left + Me.Width > Screen.Width - 240 Then
Me.Left = Screen.Width - Me.Width
End If
End sub