Private Function RotatedPoint(ByVal Pt As PointF, ByVal Angle As Integer, _
   ByVal Drehpunkt As PointF) As PointF
        Dim x = (Pt.X - Drehpunkt.X) * Math.Cos(Bogenmass(Angle)) - (Pt.Y - _
        Drehpunkt.Y) * Math.Sin(Bogenmass(Angle)) + Drehpunkt.X
        Dim y = (Pt.X - Drehpunkt.X) * Math.Sin(Bogenmass(Angle)) + (Pt.Y - _
        Drehpunkt.Y) * Math.Cos(Bogenmass(Angle)) + Drehpunkt.Y
        Return New PointF(x, y)
    End Function

Danke für die Hilfe

Gruß Christian