[VB6] Applicazione che usa WaitMessage non si chiude

[GoldEmish]

Ciao,
ho creato un programma che deve leggere i messaggi con WaitMessage.
Questa è la sub:

Private Sub ProcessMessages()
    Dim Message As Msg
    Do While Not bCancel
        WaitMessage
        DoEvents
    Loop
End Sub

Avete idea perchè non riesco a chiudere l'applicazione? Se chiudo mi si riapre un altro form... posso chiuderla solo da pulsante di Visual Studio.

Questa è la sub di chiusura:

Private Sub Form_Unload(Cancel As Integer)
    bCancel = True
End Sub

Dove Bcancel è il controllo per fermare il loop su ProcessMessages. Questa variabile viene correttamente cambiata in True, l'applicazione si chiude e se ne apre un'altra identica.
Il problema sta proprio in ProcessMessages() perchè se non lo chiamo dal form il tutto si chiude normalmente.

Grazie,
ciao.