Disegnare una linea a run time

Public Sub DrawLinePoint(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create points that define line.
    Dim point1 As New Point(100, 100)
    Dim point2 As New Point(500, 100)

    ' Draw line to screen.
    e.Graphics.DrawLine(blackPen, point1, point2)
End Sub

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

 Private Sub Button1_Click() Handles Button1.Click
        Dim linea As Graphics = Me.CreateGraphics
        Dim blackPen As New Pen(Color.Black, 3)
        Dim point1 As New Point(100, 100)
        Dim point2 As New Point(500, 100)
        linea.DrawLine(blackPen, point1, point2)
    End Sub