Dim nStartPos As Point
    Dim nDragPos As Point
 
 
    Private Sub IrgendEinPanel_MouseDown(sender As Object, e As  _
    System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim aElement As Panel = DirectCast(sender, Panel)
            nStartPos = aElement.Location
            nDragPos = aElement.PointToScreen(New Point(e.X, e.Y))
        End If
    End Sub
 
    Private Sub IrgendEinPanel_MouseMove(sender As Object, e As  _
    System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim aElement As Panel = DirectCast(sender, Panel)
 
            Dim nCurPos As Point = aElement.PointToScreen(New Point(e.X, e.Y))
            Dim NewPos As New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
              nStartPos.Y + nCurPos.Y - nDragPos.Y)
            Dim r As Rectangle = aElement.Bounds
            r.X = NewPos.X
            r.Y = NewPos.Y
 
            Dim have_to_move As Boolean = True
 
            For Each element In Me.Controls.OfType(Of Panel)()
                If Not element Is DirectCast(sender, Control) Then
                    If r.IntersectsWith(element.Bounds) Then have_to_move = _
                      False
                End If
 
            Next
 
            'ist ja nur für den Form Rand gedacht damit es nicht drüber raus 
            ' gezogen werden kann 
            If NewPos.X < 1 Then NewPos.X = 1
            If NewPos.X > 599 Then NewPos.X = 599
            If NewPos.Y < 1 Then NewPos.Y = 1
            If NewPos.Y > 367 Then NewPos.Y = 367
 
            If have_to_move Then aElement.Location = NewPos
 
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        For Each element In Me.Controls.OfType(Of Panel)()
            AddHandler element.MouseMove, AddressOf IrgendEinPanel_MouseMove
            AddHandler element.MouseDown, AddressOf IrgendEinPanel_MouseDown
        Next
    End Sub

MFG Gizmo