用Matrix
Public Function TransformPointF(inputP As PointF, center As PointF, angle As Single) As PointF
Dim myMatrix As New System.Drawing.Drawing2D.Matrix
myMatrix.RotateAt(angle, center)
Dim arr() As PointF = {inputP}
myMatrix.TransformPoints(arr)
Return arr(0)
End Function