Why won't my exe end

Here's the situation, my app uses the Domino com object to send an email. If the mail server is down, it uses a trappable error to notify the user that the server is down. Here's the problem, when the user clicks the exit button and the form disappears, the program is hogging huge amounts of cpu time in the Processes of Task Manager. Any ideas?

Here is my code to quit:

In the form:

Private Sub cmdExit_Click()

Unload Me
Call Public_Form_QueryUnload(0, 1)
End

End Sub

In a module:

Public Sub Public_Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Set DomSession = Nothing
Shell_NotifyIcon NIM_DELETE, t 'Deletes from SysTray

Exit Sub

End Sub

Hi,
You shouldn't really have any code at all after the Unload Me statement as this is probably causing your form to kick back in again.

Try swapping the Unload Me and the call to the Sub around.

Blade

He's right, swap the line of code round, unload after invoking the sub in the module :D

That did not work. It still showed up in my Processes with a CPU time of 99. Not sure why it works fine when the server is up.

Try:

VB Code:

Private Sub cmdExit_Click()  
   Call Public_Form_QueryUnload(0, 1) 
   Unload Me
End Sub 
 
'In a module: 
 
Public Sub Public_Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
   Shell_NotifyIcon NIM_DELETE, t 'Deletes from SysTray 
   Set DomSession = Nothing 
End Sub

By the way, what is 't'?