Private Sub MoveRectanglePoint(ByVal pm As PlanMassRow, ByVal ptHov As _
   PointRow, ByVal newPoint As PointF)
        ' im Rechteck kann nur die letzte Linie ausgewählt werden, es ist also 
        ' die 2.Linie der pm
        Dim First = pm.GetLineRows.First
        Dim Last = pm.GetLineRows.Last
        Dim ptDiff = newPoint.Subtract(ptHov.Point)
 
        If ptHov Is Last.GetPointRows.First Then ' 1.Point
            Point.ActiveOnOff(False)    ' Events in Point DataTable ausschalten
            Dim rwPoints = First.GetPointRows
            Dim pts(1) As Point
            Array.ConvertAll(rwPoints, Function(rw) rw.Point.Round).CopyTo(pts, _
              0)
            ' der 90° Winkel muss erhalten bleiben, also die Verschiebung in 
            ' Y-Richtung mit berücksichtigen
            ' Winkel der vorhandenen Linie berechnen:
            Dim Angle_Rad = Angel_X_Radiant(pts(1), pts(0))
            Dim NeuX = pts(1).X + ptDiff.X
            'ptDiff.X ist die Ankathete des rechtwinkligen Dreiecks, Angle_Rad 
            ' der Winkel a
            Dim NeuY = CSng((Math.Tan(Angle_Rad) * ptDiff.X) + pts(1).Y)
            Dim nPt1 = New PointF(NeuX, NeuY)
            ptDiff = nPt1.Subtract(ptHov.Point) ' Verschiebung des Punktes 
            ' merken
            ptHov.MoveTo(nPt1)
            First.GetPointRows.Last.MoveTo(nPt1)    ' 2.Punkt der 1.Linie 
            ' syncron mitschieben
            Dim pt2 = Last.GetPointRows.Last.Point    ' 2.Punkt der 2.Linie 
            ' anpassen
            Last.GetPointRows.Last.MoveTo(pt2.Add(ptDiff))
            Point.ActiveOnOff(True) ' Events in Point DataTable einschalten
        ElseIf ptHov Is Last.GetPointRows.Last Then    ' dann ist es der 2.Point
 
        End If
 
    End Sub

Danke für die Hilfe

Gruß Christian