Decisión Crucial
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = FalsePictureBox2.Visible = True
PictureBox3.Visible = False
PictureBox4.Visible = True
PictureBox5.Visible = False
PictureBox6.Visible = True
PictureBox7.Visible = FalsePictureBox8.Visible = True
PictureBox9.Visible = False
PictureBox10.Visible = True
PictureBox11.Visible = False
PictureBox12.Visible = True
End SubPrivate Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
PictureBox1.Visible = True
PictureBox2.Visible = False
IfPictureBox1.Visible = True = PictureBox3.Visible = True Then
MsgBox("SON IGUALES")
PictureBox1.Visible = False
PictureBox2.Visible = FalsePictureBox3.Visible = False
PictureBox4.Visible = False
Else
PictureBox6.Visible = True
PictureBox8.Visible = True
PictureBox10.Visible = TruePictureBox12.Visible = True
End If
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.ClickPictureBox3.Visible = True
PictureBox4.Visible = False
If PictureBox1.Visible = True = PictureBox3.Visible = True Then
MsgBox("SON IGUALES")
PictureBox1.Visible= False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
End If
End Sub
Private SubPictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
PictureBox5.Visible = True
PictureBox6.Visible = False
If PictureBox5.Visible = True =...
Regístrate para leer el documento completo.