Код:
Перерисовывание лини...
Private Sub MyForm_Paint (ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
' Во-вторых, мы должны получить доступ к объекту, позволяющему рисовать на форме - Graphics
' Он передаётся в параметре e:
Dim g As Graphics = e.Graphics
' Для рисования мы используем объект Pen размера 1 пиксель чёрного цвета
Dim blackPen As New Pen (Color.Black, 1)
' Далее, мы должны задать координаты линии
Dim x1 As Single = 100
Dim y1 As Single = 50
Dim x2 As Single = 100
Dim y2 As Single = 550
' Рисуем линию!
g.DrawLine (blackPen, x1, y1, x2, y2)
End Sub