Declare Auto Function DefWindowProc Lib "user32" (ByVal hWnd As IntPtr, _
      ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As _
      IntPtr
 
    Private Const WM_NCHITTEST As Integer = &H84
    Private Const HTBORDER As Integer = 18
    Private Const HTCAPTION As Integer = 2
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_NCHITTEST AndAlso DefWindowProc(Me.Handle, m.Msg, _
          m.WParam, m.LParam) = New IntPtr(HTCAPTION) Then
            m.Result = New IntPtr(HTBORDER)
        Else
            MyBase.WndProc(m)
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov