Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
      If e.Button = Windows.Forms.MouseButtons.Left Then
         pDraw = True
      End If
   End Sub
 
   Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
      If pDraw Then
         Using g As Graphics = PictureBox1.CreateGraphics
            g.DrawRectangle(Pens.Black, New Rectangle(e.Location.X, _
              e.Location.Y, 1, 1))
         End Using
      End If
   End Sub
 
   Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
      pDraw = False
   End Sub