VB.Net by API/System.Drawing/Point2D

New Point2D

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Public Class Tester

   Public Shared Sub Main
       " ----- Original PointF version.
       Dim singlePoint As New PointF(1 / 17, Math.PI)
       Console.WriteLine("PointF: " & singlePoint.ToString())
       Console.WriteLine("X: " & singlePoint.X)
       " ----- New Point2D version.
       Dim doublePoint As New Point2D(1 / 17, Math.PI)
       Console.WriteLine("Point2D: " & doublePoint.Tostring())
       Console.WriteLine("X: " & doublePoint.X)
       
   End Sub

End Class Public Class Point2D

   Public X As Double
   Public Y As Double
   Public Sub New(ByVal xPoint As Double, _
         ByVal yPoint As Double)
       Me.X = xPoint
       Me.Y = yPoint
   End Sub
   Public Overrides Function Tostring() As String
       Return "{X=" & X & ",Y=" & Y & "}"
   End Function

End Class

 </source>