Private _moving As Boolean
    Private _sp As Point
    Private _np As Point
    Private _sz As Size
 
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        _moving = True
        _sp = New Point(e.X, e.Y)
        _np = Me.PointToScreen(Panel1.Location)
        _sz = Panel1.Size
        DrawOutline(_np, _sz)
    End Sub
 
    Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        If _moving Then
            RemoveOutline(_np, _sz)
        End If
        _moving = False
    End Sub
 
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If _moving Then
            RemoveOutline(_np, _sz)
            _np.Offset(e.X - _sp.X, e.Y - _sp.Y)
            _sp = New Point(e.X, e.Y)
            DrawOutline(_np, _sz)
        End If
    End Sub
 
    Private Sub DrawOutline(ByVal position As Point, ByVal size As Size)
        ControlPaint.DrawReversibleFrame(New Rectangle(position, size), _
          Color.White, FrameStyle.Dashed)
    End Sub
 
    Private Sub RemoveOutline(ByVal position As Point, ByVal size As Size)
        ControlPaint.DrawReversibleFrame(New Rectangle(position, size), _
          Color.White, FrameStyle.Dashed)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist