Añadimos 1 Timer intervalo 1000 y enabled=false
Añadimos 2 Labels
Dim Variable1 As String
Dim numero As String
Private Sub Form_Load()
numero = "40"
variabel1 = InputBox("¿Que quedo españa en la final?[España primero]", "Pregunta")
If variabel1 = "1-0" Then
MsgBox "Correcto"
Else
Call Repetir
MsgBox "Mal"
MsgBox "Adios"
Form1.Timer1.Enabled = True
Label3.Caption = "60"
Label2.Visible = False
End If
End Sub
Public Function Repetir()
For i = 1 To 40
MsgBox "Lo as inroducido mal " & numero & Form1.Repetir1
Next
End Function
Public Function Repetir1()
numero = numero - 1
End Function
Private Sub Label2_Click()
End
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Label3.Caption - 1
If Label3.Caption = "0" Then
End
End If
End Sub
:xD
borrale el label3 porque tira error al terminar.... :o :P :P :P :P