[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.

[MItaly]

Linguaggio? Versione?

[oregon]

Qual e' il codice eseguito da WaitMessage?

[GoldEmish]

scusate, pensavo di averlo messo nel titolo.
VB6

Public Declare Function WaitMessage Lib "user32" () As Long

[oregon]

Da MSDN

"The WaitMessage function suspends the thread and does not return until a new message is placed in the thread's message queue."

[GoldEmish]

si, ma questo non spiega perchè si riavvia il processo.
Il ciclo del waitmessage cicla qualche decina di volte al secondo, quindi con il quit dovrebbe sospendersi il ciclo e uscire... invece si riavvia.

[oregon]

Si dovrebbe eseguire il debug di tutto il progetto ... se vuoi inviare il file .zip per darci un'occhiata ...