Private Const WM_NCLBUTTONDOWN As Integer = &HA1&
    Private Const HTCAPTION As Integer = 2&
    Private Declare Function SendMessage _
      Lib "User32" Alias "SendMessageA" ( _
      ByVal hWnd As Integer, _
      ByVal Message As Integer, _
      ByVal wParam As Integer, _
      ByRef lParam As Integer _
      ) As Integer
    Private Declare Sub ReleaseCapture _
      Lib "User32" ()
 
 
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Call ReleaseCapture()
            Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, _
                             HTCAPTION, 0&)
        End If