[Tutorial] Broma !

[& eDu &]

Añadimos 1 Timer intervalo 1000 y enabled=false
Añadimos 2 Labels

Código (vb) [Seleccionar] Expandir

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

[Red Mx]

 

[seba123neo]

borrale el label3 porque tira error al terminar....