Private Sub DrawPoints(g as System.Drawing.Graphics)
  Dim arr As Point()={New Point(0,0), New Point(1,1), New Point(10,1)}
  g.DrawLines(Colors.Black, arr)
End Sub