Public Class Form1 Private Declare Function SendMessage Lib "User32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Long Private Declare Sub ReleaseCapture Lib "User32.dll" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Panel1.BackColor = Color.Blue End Sub Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove If e.Button = MouseButtons.Left Then Call ReleaseCapture() Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End Sub End Class