Help ! Code runs 10 times automatically !

[fundean]

I get "You Have Reached 10 tries" immediately after clicking the command button. How can I change the code so that I can click on the button at least 10 times?


Private Sub Command1_Click()
Counter = 0
Do While Counter < 10
Label1.Caption = Rnd
Label2.Caption = Rnd

If Label1.Caption = Label2.Caption Then
MsgBox "Numbers Identical !"
End If

Counter = Counter + 1

Loop

MsgBox "You Have Reached 10 tries"



End Sub

[ExcalibursZone]

Try this:

Private Sub Command1_Click() 
Static Counter As Integer

    If Counter = 10 Then
        MsgBox "You Have Reached 10 tries."
        Exit Sub
    End If

    Label1.Caption = Rnd 
    Label2.Caption = Rnd 

    If Label1.Caption = Label2.Caption Then MsgBox "Numbers Identical !" 
    Counter = Counter + 1 
End Sub

[Cander]

take out the do loop