Data Structure VB.Net

Imports System
Imports System.Drawing
Imports System.Collections.Generic
Public Class Example
    Public Shared Sub Main()
        Dim lpf As New List(Of PointF)
        lpf.Add(New PointF(7.8, 2.2))
        lpf.Add(New PointF(9.3, 7.3))
        lpf.Add(New PointF(7.5, 2.2))
        For Each p As PointF In lpf
            Console.WriteLine(p)
        Next
        Dim lp As List(Of Point) = lpf.ConvertAll(New Converter(Of PointF, Point)(AddressOf PointFToPoint))
        For Each p As Point In lp
            Console.WriteLine(p)
        Next
    End Sub
    Public Shared Function PointFToPoint(ByVal pf As PointF) As Point
        Return New Point(CInt(pf.X), CInt(pf.Y))
    End Function
End Class