Private Const WM_NCHITTEST As Integer = &H84
Private Const HTCLIENT As Integer = &H1
Private Const HTCAPTION As Integer = &H2
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If m.Msg = WM_NCHITTEST Then
If m.Result = CType(HTCLIENT, IntPtr) Then
m.Result = CType(HTCAPTION, IntPtr)
End If
End If
End Sub