Private Sub CtrlMover1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CtrlMover1.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then CtrlMover1.Capture = False Dim msg As Message = Message.Create(CtrlMover1.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero) Me.DefWndProc(msg) End If End Sub
DockStyle.Fill
DockStyle.Top
MouseDown
MouseUp
MouseMove
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)