level 1
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_NCHITTEST As Integer = &H84 '窗体移动
Const HTCLIENT As Integer = &H1
Const HTCAPTION As Integer = &H2 If m.Msg = WM_NCHITTEST Then
Me.DefWndProc(m) If m.Result.ToInt32() = HTCLIENT Then
m.Result = New IntPtr(HTCAPTION)
Else
MyBase.WndProc(m)
End If
Else
MyBase.WndProc(m)
End If
End Sub
2013年01月23日 11点01分