contraseña 3 intentos

El programer
31 de Mayo del 2004
Creo que es un codigo muy facil pero a mi no me sale :
lo que quiero es que solo con un cuadro de texto y un boton hacer esto:

que cuando la contraseña sea "oso" pase al form2
y dar 3 intentos para meter la contraseña y si no que se salga del programa.

^RattleHead^
31 de Mayo del 2004
Holas Creo que le codigo Seria Haci,,,,,,,,,,,,,

Dim Cont As Integer
Private Sub Form_Load()
Cont = 1
End Sub
Private Sub Command1_Click()
If Cont < 4 Then
If Text1 = "Oso" Then
Unload Me
Form2.Show
Else
MsgBox "La Contraseña No es Correcta"
End If
Cont = Cont + 1
End If
End Sub

Espero Te Sirva
^RattleHead^

^RattleHead^
31 de Mayo del 2004
Por el Apuro lo Escribi mal,,, Ahora sip

Dim Cont As Integer
Private Sub Form_Load()
Cont = 1
End Sub
Private Sub Command1_Click()
If Cont < 4 And Text1 = "Oso" Then
Unload Me
Form2.Show
ElseIf Cont < 4 And Text1 <> "Oso" Then
MsgBox "Contraseña Incorrecta"
ElseIf Cont = 4 Then
Unload Me
End If
Cont = Cont + 1
End Sub