Hej, om jag kör en modul (.bas) som en icke grafisk app så startar jag ju med "Sub main", hur gör jag vid avslut?

Alltså motsvarande queryunload.

Jag vill trigga en sak när programmet avslutas.


/B

Detta kanske fungerar för dig?
<code>
Option Explicit

Private Const WM_CLOSE As Long = &H10&

Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long
Private Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Public Sub Main()
Dim aMsg As Msg
If App.PrevInstance Then
MessageBox 0&, "Applikation körs redan!", App.Title, 0&
Else
'Öppna databas

Do While GetMessage(aMsg, 0&, 0&, 0&)
Select Case aMsg.message
Case WM_CLOSE
MessageBox 0&, "WM_CLOSE", "WM_CLOSE", vbOK Or vbDefaultButton2
Exit Do
Case Else
DispatchMessage aMsg
End Select
Loop

'Stäng databas

End If
End Sub

</code>