VB.Net by API/System.Drawing/PointF

New PointF

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawLineUsingPointFStructure

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim blackPen As New Pen(Color.Black, 4)
       " 
       " 
       Dim ptf1 As New PointF(20.0F, 20.0F)
       Dim ptf2 As New PointF(200.0F, 200.0F)
       e.Graphics.DrawLine(blackPen, ptf1, ptf2)
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class

 </source>

PointF.Empty

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class UsePointF

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim pt As New PointF(50.0F, 50.0F)
       Dim newPoint As PointF = PointF.Empty
       newPoint.X = 100.0F
       newPoint.Y = 200.0F
       Dim g As Graphics = Graphics.FromHwnd(Me.Handle)
       Dim pn As New Pen(Color.Blue, 4)

       g.DrawLine(pn, pt, newPoint)
       pn.Dispose()
       g.Dispose()
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class

 </source>