Foro de elhacker.net

Option Explicit
Dim n(1 To 5) As Integer

Private Sub Command1_Click()
    Dim i As Long
    
    n(1) = 0
    n(2) = -1
    n(3) = -1
    n(4) = -1
    n(5) = -1
    Timer1.Enabled = True
    Timer2.Enabled = True
    Timer3.Enabled = True
    Timer4.Enabled = True
    Timer5.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Randomize
    Label1(1).Caption = Int((9 * Rnd) + 1)
    n(1) = n(1) + 1
    If n(1) = 10 Then
        Timer1.Enabled = False
        Timer2.Enabled = True
        n(2) = 0
    End If
End Sub

Private Sub Timer2_Timer()
    Randomize
    Label1(2).Caption = Int((9 * Rnd) + 1)
    If n(2) = -1 Then Exit Sub
    n(2) = n(2) + 1
    If n(2) = 10 Then
        Timer2.Enabled = False
        Timer3.Enabled = True
        n(3) = 0
    End If

End Sub

Private Sub Timer3_Timer()
    
    Randomize
    Label1(3).Caption = Int((9 * Rnd) + 1)
    If n(3) = -1 Then Exit Sub
    n(3) = n(3) + 1
    If n(3) = 10 Then
        Timer3.Enabled = False
        Timer4.Enabled = True
        n(4) = 0
    End If
End Sub

Private Sub Timer4_Timer()
    
    Randomize
    Label1(4).Caption = Int((9 * Rnd) + 1)
    If n(4) = -1 Then Exit Sub
    n(4) = n(4) + 1
    If n(4) = 10 Then
        Timer4.Enabled = False
        Timer5.Enabled = True
        n(5) = 0
    End If
End Sub

Private Sub Timer5_Timer()
    
    Randomize
    Label1(5).Caption = Int((9 * Rnd) + 1)
    If n(5) = -1 Then Exit Sub
    n(5) = n(5) + 1
    If n(5) = 10 Then
        Timer5.Enabled = False
        If Label1(1).Caption = Label1(2).Caption And _
           Label1(1).Caption = Label1(2).Caption And _
           Label1(1).Caption = Label1(3).Caption And _
           Label1(1).Caption = Label1(4).Caption Then
            MsgBox "ganaste"
        Else
            MsgBox "suerte para la proxima"
        End If
    End If
End Sub