Dim Xs As Integer
Dim Ys As Integer
Dim IsBeingDragged As Boolean
Dim DockScale As Integer
 
Private Sub Form_Load()
DockScale = 150
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
If IsBeingDragged = True And Button = vbLeftButton Then
    If Form1.Left + (X - Xs) < DockScale Then
        Form1.Left = 0
        Exit Sub
    End If
 
    If Form1.Top + (Y - Ys) < DockScale Then
        Form1.Top = 0
        Exit Sub
    End If
 
    If Form1.Left + (X - Xs) + Form1.Width > (Screen.Width - DockScale) Then
        Form1.Left = Screen.Width - Form1.Width
        Exit Sub
    End If
 
    If Form1.Top + (Y - Ys) + Form1.Height > ((Screen.Height) - DockScale) Then
        Form1.Top = (Screen.Height) - Form1.Height
        Exit Sub
    End If
 
    Form1.Left = Form1.Left + (X - Xs)
    Form1.Top = Form1.Top + (Y - Ys)
End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
    IsBeingDragged = False
End Sub