Visual Basic - QUE COMANDO TE PIDE LA CLAVE TRES VECES

HOLA QUISIERA QUE ME AYUDARAS DICIENDOME CUAL ES EL COMANDO QUE TE DA TRES OPORTUNIDADES DE INTRODUCIR UNA CLAVE Y SI NO ACERTAS EN NIGUNA TE SACA DEL PROGRAMA Y TAMBIEN COMO SE USA Y SU SINTAXIS.

MUCHAS GRACIAS POR LA AYUDA

HOLA..
QUE YO SEPA NO HAY UN COMANDO QUE HAGA ESO...
SE IMPLEMENTA CON UN CONTADOR, QUE VAYA CONTANDO LAS VECES QUE INTRODUCES MAL LA CLAVE.. SI LLEGA AL LIMTE YA NO TE PERMITE ACCESAR O INTRODUCIR LA CLAVE..

SALUDOS
ISIDROALMAGUER

no hay ninguno, pero puedes hacer lo sigiente:

private sub form_load()
dim a ' para pedir la clave
dim b ' para el numero de veses que deseas repetir
c = 1
a = inputbox("anota tu clave" & chr(13) & "intento No." & b,"clave")'aqui te pide la clave, y te indica el intento que llevas.
if a <> clave then ' compara la clave con la introducida.
c = c + 1
else
'todo tu codigo fuente.

no hay ninguno, pero puedes hacer lo sigiente:

private sub form_load()
dim a ' para pedir la clave
dim b ' para el numero de veses que deseas repetir
c = 1
a = inputbox("anota tu clave" & chr(13) & "intento No." & b,"clave")'aqui te pide la clave, y te indica el intento que llevas.
if a <> clave then ' compara la clave con la introducida.
c = c + 1
else
'todo tu codigo fuente.

end if

if c = 3 then
msgbox "lastima esa no era la clave adios."
unload me
end if
end sub