<DllImport("user32.dll")> _
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function
 
    <DllImport("user32.dll")> _
Private Shared Function ReleaseCapture() As Boolean
    End Function
 
    Private Sub Form1_MouseDown(ByVal sender As Object, _
                        ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
                        Me.MouseDown
 
        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, &HA1, &H2, 0)
        End If
 
    End Sub