Code Snippet
Public Class Form1
Private Sub PictureBox_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox.Paint
Dim gr As Graphics = e.Graphics
gr.DrawLine(Pens.Red, New Point(0, 100), New Point(200, 100))
End Sub
End Class