Salir de un bucle pulsando un boton o una tecla

Robert
17 de Abril del 2004
Como puedo hacer un bucle q se ejecute de manera continua hasta q alguien pulse una tecla?

koala
17 de Abril del 2004
'por ejemplo asi
dim b as boolean

Private Sub Form_Load()
b=false
End Sub

sub rutina()
do while b=false
'aqui lo que se quieras
doevents'permitimos la ejecucion de otros procedimientos
loop
end sub

Private Sub Command1_Click()
b=true'ponesmos b a true y la rutina se detendra
End Sub