REM ***** BASIC ***** Global s_CloseListenerCalled As Boolean Sub PressCancel gDlgState = cDlgCancel end Sub Sub PressOk gDlgState = cDlgOk end Sub Sub PressTest gOptionsDialog.EndExecute() gDlgState = cDlgStartTest end Sub Sub closeListener_queryClosing ' not interested in closeListener_queryClosing = TRUE End Sub Sub closeListener_notifyClosing s_CloseListenerCalled = TRUE End Sub Sub closeListener_disposing ' not interested in End Sub Sub ResetCloseListenerFlag s_CloseListenerCalled = FALSE End Sub Function HasCloseListenerBeenCalled As Boolean HasCloseListenerBeenCalled = s_CloseListenerCalled End Function