Private Sub Image1_Click()
Label2.Caption = "BELGICA"
End Sub
Ø Para que al estar sobre la imagen de bandera me aparezca el mensaje en el label
Ø En el otro form
Para que al apretar sobre un boton la pc me conteste en un label
Option Explicit
Dim BANDERA As String
Private Sub Command1_Click()
BANDERA = InputBox("INGRESE EL NOMBRE DE ESTA BANDERA")
If UCase(BANDERA) = "ITALIA" Then
Label1.Caption = "¡CORRECTO!,CONTESTA LA OTRA BANDERA O PRESIONA SIGUIENTE PARA CONTINUAR"
Label2.Caption = "PAIS QUE SE ENCUENTRA EN EL CONTINENTE EUROPEO"
Else
Label1.Caption = "¡INCORRECTO, PRUEBA OTRA VEZ!"
Label2.Caption = " "End If
