Finalizar una rutina desde otra

[antu09]

Hola, soy nuevo en esto de consultar a través de foros asi que espero obtener resultados satisfactorios.
Bueno les cuento...
Estoy programando una aplicación para un bingo. El programa debe sortear los números automáticamente. El problema es que yo necesito pausar ese proceso (sortear números) si el usuario presiona un boton llamado "PAUSAR", y debo hacerlo desde la rutina click del boton.
No consigo terminar la rutina de "sorteo" desde esa rutina.
Espero que me hayan entendido y ojala me puedan responder, Gracias...

[seba123neo]

Hola,entiendo lo que queres hacer ,pero al no ver el codigo que usas no puedo decirte como pararlo,pero me inmagino que estas generando numeros aleatorios con un control Timer,si es asi lo unico que tenes que hacer es parar el intervalo del timer y listo,no se como lo estas haciendo....

saludos.

[David]

También en caso de que estés usando un bucle Do... Loop puedes usar DoEvents dentro del bucle y crear una variable que tenga alcance en todo el módulo. Así cuando hagas Click en el Botón PAUSAR modifica la variable, y desde el bucle compruebas su valor... Ej:

Código:

 
Pause = False
Do
     DoEvents
     If Pause = True Then Exit Do
Loop
Sub Pausar_Click()
Pause = True
End Sub

Entre las declaraciones coloca:

Código:

 
Private Pause As Boolean