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
    Private myPathTitle As New GraphicsPath
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        With myPathTitle
            If .IsVisible(e.Location) Then
                Call ReleaseCapture()
                SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
            End If
        End With
    End Sub
End Class

Gru? aus dem Norden
manyki