Ao programar um aplicativo no Visual Basic 6 ( VB6 ) às vezes pode ser útil para interromper uma sub-rotina e espere até que o usuário pressiona um botão, como exigir que o usuário leia um pop-up e clique em " Ok" antes de continuar. Você pode pausar uma sub-rotina e esperar por um botão de pressão , colocando o método " DoEvents " dentro de um loop , que não bloqueia o computador como o método de " Wait" . Instruções
1

Abra o arquivo de origem VB6 em um editor como o Microsoft Visual Basic.
2

Declare uma variável boolean global para rastrear se o botão foi pressionado , adicionando o seguinte código no topo da sua forma :

Option Explicit

Pública ButtonIsClicked as Boolean
3

Inicializar o valor da variável " ButtonIsClicked " no início de sua sub-rotina , adicionando o código :

ButtonIsClicked = false
4

chamam de " DoEvents ()" método dentro de um loop "while" esperar até que o botão tem foi pressionado , adicionando o seguinte código dentro de sua rotina :

Button

Enquanto ButtonIsClicked = false

Application.DoEvents ()

final, enquanto

O método " DoEvents " processa as mensagens do Windows existentes, como um clique de botão . . O loop continuará acontecendo até que o botão é clicado
5

Abra o GUI Form Designer , clique duas vezes no botão , o usuário precisa clicar e adicione o seguinte código :

ButtonIsClicked = true
6

Salve o arquivo VB6, compilar e executar o programa para executar sua rotina modificada.