Public Sub DrawLines(ByVal g As Graphics)
      g.Clear(Color.White)
      g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
 
      For Each obj In pLines
         g.DrawLine(Pen, obj.StartPoint, obj.EndPoint)
      Next
   End Sub

   Private Sub Me_Paint(ByVal sender As System.Object, ByVal e As _
     PaintEventArgs) Handles MyBase.Paint
      Call DrawLines(e.Graphics)
   End Sub