onderscheppen / uitschakelen van WM_CLOSE

[buick]

Hallo,

Ik heb een programma geschreven wat, als het afgesloten wordt, eerst wat opschoningshandelingen moet uitvoeren en een popup moet geven met bevestiging.

Als ik vie mijn menubalk op afsluiten klik, werkt dit ook wel. Maar als men op het kruisje rechtsboven klikt, wordt het programma direct afgesloten.

Weet iemand een manier om dit te onderscheppen (ik meen dat het WM_CLOSE is) zodat ik ook, als op het kruisje wordt geklikt, dezelfde code wordt uitgevoerd?

Uitschakelen van de controlbox vind ik geen mooie oplossing omdat daarmee ook minimize en maximize verdwijnen.

Ik heb gegoogled maar vond alleen C++ oplossingen voor dit probleem en geen VB.

Ik gebruik overigens VB6

 

[WarnedGraph]

Ik programmeer zelf in VB.Net, maar ik veronderstel dat volgende code moet werken in
VB6:

Private Sub Form_Unload(Cancel As Integer)
     Dim res as Integer = MsgBox("Weet U zeker dat U wilt afsluiten", vbYesNo +   vbExclamation, "Afsluiten...")
     If res = vbYes Then
           'Hier kan je nog code zetten die moet worden uitgevoerd voor het afsluiten
           End
     ElseIf res = vbNo Then
          Cancel = 1
     End If
End Sub