Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
        Dim pen As New Pen(Color.Transparent, 2)
        e.Graphics.DrawLine(pen, 0, 0, 100, 100)
    End Sub