Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As _
    Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
 
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                           x As Single, y As Single)
 
  If y / Screen.TwipsPerPixelY < 25 Then
     Call ReleaseCapture
     Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub