Return an exit code with ExitProcess

[Njoannides]

In my Application, I have the following code :

Private Declare Sub ExitProcess Lib "kernel32" _
      (ByVal uExitCode As Long)
Private lExitCode As Long

Private Sub Form_Load()
   lExitCode = 0&
End Sub

Private Sub mnuExport_Click()       
   mnuExport.Checked = IIf(mnuExport.Checked, vbUnchecked,
vbChecked)
   If (mnuExport.Checked) Then lExitCode = 1&          
End Sub

Private Sub Form_Terminate()
   ExitProcess lExitCode    
End Sub

But this return always 0 even if I check the item in my menu
And when I try to place a breakpoint on ExitProcess and execute, it causes a GPF(General Protection Fault) and VB crashes....

Anyone has knowledge of this bug or know a solution ?

Nicolas Joannidès
Visual Basic, C, ASP
[email protected]

[alex_read]

could try using mnuExport.value with true false options instead?

[CoreyS]

Try using the ExitProcess with the actual exit value instead of a variable containing the exit value:

Private Sub Form_Terminate()

  If(mnuExport.Checked) then
    ExitProcess 1&
  Else
    ExitProcess 0&
  EndIf

End Sub

I think that will work.