1 Imports System 2 Imports System.Drawing 3 Imports System.Collections.Generic 4  5 Public Class Example 6  7     Public Shared Sub Main() 8  9         Dim apf() As PointF = { _10             New PointF(27.8, 32.62), _11             New PointF(99.3, 147.273), _12             New PointF(7.5, 1412.2)  }13 14         Console.WriteLine()15         For Each p As PointF In apf16             Console.WriteLine(p)17         Next18 19         Dim ap() As Point = Array.ConvertAll(apf, _20             New Converter(Of PointF, Point)(AddressOf PointFToPoint))21 22         Console.WriteLine()23         For Each p As Point In ap24             Console.WriteLine(p)25         Next26 27     End Sub28 29     Public Shared Function PointFToPoint(ByVal pf As PointF) _30         As Point31 32         Return New Point(CInt(pf.X), CInt(pf.Y))33     End Function34 End Class