CÓDIGOS PARA REALIZAR ENLACES A CADA FORMULARIO DE LAS ADIVINANZAS
Public Class Form8
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If op1.Checked Then
MsgBox("CORRECTO")
End If
If op2.Checked Then
MsgBox("INCORRECTO")
End If
If op3.Checked Then
MsgBox("INCORRECTO")
End If
If op4.Checked Then
MsgBox("INCORRECTO")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Visible = False
Form7.Visible = True
End Sub
End Class
Public Class Form9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If op1.Checked Then
MsgBox("CORRECTO")
End If
If op2.Checked Then
MsgBox("INCORRECTO")
End If
If op3.Checked Then
MsgBox("INCORRECTO")
End If
If op4.Checked Then
MsgBox("INCORRECTO")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Visible = False
Form7.Visible = True
End Sub
End Class
Public Class Form10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If op1.Checked Then
MsgBox("INCORRECTO")
End If
If op2.Checked Then
MsgBox("INCORRECTO")
End If
If op3.Checked Then
MsgBox("CORRECTO")
End If
If op4.Checked Then
MsgBox("INCORRECTO")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Visible = False
Form7.Visible = True
End Sub
End Class
No hay comentarios:
Publicar un comentario