こちらでは、線分を描画することはできたものの、
ウィンドウが重なったりすると、描画された線分が
消えてしまいました。
描画した線分が消えない（消えても再度書き直す）ためのコードです。
事前準備はこちらを参照。
Public Class Form1
Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint
Dim linePen As Pen = New Pen(Color.Green, 3)
e.Graphics.DrawLine(linePen, 20, 50, 70, 120)
End Sub
End Class
Paintイベントを使用することにより、描画が必要なタイミングで、
改めて描画を行ってくれます。