Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gr As Graphics = e.Graphics
        gr.DrawLine(New Pen(Color.Blue, 2), 10, 20, 30, 40)
        ' usw.
End Sub