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.