Public Class Form1
 
    ' API-Funition zum Verschieben des Fensters
    Private Declare Function ReleaseCapture Lib "user32" () As Integer
 
    Private Declare Function SendMessage _
      Lib "user32" Alias "SendMessageA" ( _
      ByVal hwnd As Integer, _
      ByVal wMsg As Integer, _
      ByVal wParam As Integer, _
      ByRef lParam As Object) As Integer
 
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2
 
Jetzt muss für die Titelleiste, also den Panel "Title", nur noch ein _
  MouseDown-Event deklariert werden, damit man das Fenster auch verschieben _
  kann:
 
    Private Sub Title_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Title.MouseDown
 
        Call ReleaseCapture()
        SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
 
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)