Cómo pausar una subrutina Hasta que se pulse un botón en VB6

Al programar una aplicación en Visual Basic 6 ( VB6 ) que a veces puede ser útil para poner en pausa una subrutina y esperar hasta que el usuario pulsa un botón , como la exigencia de que el usuario lea un cuadro emergente y haga clic en "Aceptar" para continuar . Puede pausar una subrutina y esperar a que una pulsación de botón , colocando el método " DoEvents " dentro de un bucle , que no bloquee el ordenador como el método de " espera" . Instrucciones
1

Abra el archivo de código fuente VB6 en un editor como Microsoft Visual Basic .
2

Declare una variable booleana mundial para rastrear si el botón ha sido presionado por la adición de el siguiente código en la parte superior del formulario: Option Explicit

Pública ButtonIsClicked As Boolean
3

inicializar el valor de la " ButtonIsClicked variable" al inicio de la subrutina con el código :

ButtonIsClicked = false
4

Llame al método dentro de un bucle "while" que esperar hasta que el botón tiene " ) DoEvents ( " ha presionado añadiendo el siguiente código en la subrutina :

Button

Mientras ButtonIsClicked = false

Application.DoEvents ( ) guía

End While

El método " DoEvents " procesa los mensajes de Windows existentes, como un clic de botón . . El bucle continuará adelante hasta que se hace clic en el botón
5

Abra el Diseñador de interfaz gráfica de usuario , haga doble clic en el botón, el usuario tiene que hacer clic y añadir el siguiente código:

ButtonIsClicked = true
6

Guarde el archivo VB6 , compilar y ejecutar el programa se ejecute la subrutina modificada.