Visual Basic - Problema con While

Buenas, tengo un bucle while, y necesito salir de él. Este bucle es la aplicacion principal y debe estar siempre activo, excepto, cuando yo clicke un boton de salir. El problema es que cuando esta dentro del bucle, no me comprueba el boton. He provado DoEvents, pero por culpa de una instrucción que controla un equipo Bluetooth no funciona.
Alguien sabe como salir de otra forma con el boton?????

Gracias por todo
un saludo Nofu

Antes del bucle puedes crear una variable booleana establecida a false y en una parte del bucle compruebas si la variable es o no verdadera. Lo único que tienes que hacer es que en el evento click del botón estableces esa variable a true. No sé si te funcionará, suerte.

Puedes utilizar la función Sleep. Acabo de crear un nuevo proyecto con dos botones el primero inicia un bucle Do y el segundo tiene la función de salir del formulario. Logro finalizar la aplicación, espero que te sirva, en caso contrario envíame un mensaje y estamos en contacto.

'Dentro de un módulo declarar lo siguiente:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Esta es la declaración.

En mi formulario he puesto este código, que espero te sirva ó te hagas una idea de la solución que te propongo.
Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Dim i As Long
Do Until i = 65000
i = i + 1
Sleep 1000 'Hace una pausa durante 1 Seg.
DoEvents
Command2.Caption = i
Loop
End Sub

Saludos Pola