Private Sub Panel_Schieber_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles PanelTS1_Schieber.MouseMove, _
  PanelTS2_Schieber.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ' aktuelle Mausposition bezogen auf den Desktop ermitteln
            Dim nCurPos As Point = actPanel.PointToScreen(New Point(e.X, e.Y))
 
            ' Neue Position des Controls berechnen
            Dim nNewPos As New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
              nStartPos.Y + nCurPos.Y - nDragPos.Y)
 
            ' Neue Koordinaten prüfen und sicherstellen, dass das Control
            ' nicht aus dem sichtbaren Bereich der Form verschoben wird
            With nNewPos
                If .X < actPanel.Parent.ClientRectangle.Left Then .X = _
                  actPanel.Parent.ClientRectangle.Left
                If .X + actPanel.Width > _
                actPanel.Parent.ClientRectangle.Right Then
                    .X = actPanel.Parent.ClientRectangle.Right - actPanel.Width
                End If
                If .Y < actPanel.Parent.ClientRectangle.Top Then .Y = _
                  actPanel.Parent.ClientRectangle.Top
                If .Y + actPanel.Height > _
                actPanel.Parent.ClientRectangle.Bottom Then
                    .Y = actPanel.Parent.ClientRectangle.Bottom - _
                    actPanel.Height
                End If
            End With
 
 
            ' sicherstellen dass kein anderes Panel überdeckt wird
            For Each p As Panel In actPanel.Parent.Controls
                If Not p.Name = actPanel.Name Then
                    If p.Bounds.IntersectsWith(actPanel.Bounds) Then
                        With nNewPos
                            If .X < p.Left Then .X = p.Left - actPanel.Width - 2
                            If .X > p.Left Then .X = p.Left + p.Width + 2
                        End With
                    End If
                End If
            Next
 
            ' Control an neuen Position verschieben
            actPanel.Location = nNewPos
        End If
    End Sub

Danke für die Hilfe

Gruß Christian