应用程序发生异常 unknown software exception

Question

Private Sub Form_Unload(Cancel As Integer)
   On Error Resume Next
   End
End Sub程序最小化到任务栏后，点击“关闭”选项，出现了“应用程序发生异常 unknown software exception（0xc000008f）,位置为0x77e8bc81”对话框,点击“确定”后，程序终止。
我系统为Win2K,VB6.0，使用了不少ocx和dll.请问，为什么会出现该提示框，怎么解决？
谢谢！

Answer 1

估计是使用得ocx或者dll的问题，这个一般只能一个一个的用排除的方法来判断问题出在哪个ocx或者哪个dll的调用上。

Answer 2

不能用 End 语句，VB 够傻瓜不会出错，第三方控件就不一定了。老老实实一一释放吧。

Answer 3

请教如何释放dll和ocx?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数：Quit 
'功能：退出程序
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub Quit()  'FACE.Quit
   Dim frm As Form
   
   On Error GoTo 0
   
   If vbYes = MsgBox("真的要退出" & App.Title & "吗？", vbYesNo Or vbQuestion, "提示") Then
      '
      If m_blTopMost = True Then
         Call AlwaysOnTop(False)
      End If
      
      'Setting
      INI.WriteINIKey "Setting", "Volume", CStr(GetVolumeValue)              '音量
      INI.WriteINIKey "Setting", "NoVolume", IIf(g_blNoVolume, 1, 0)          '1静音,0不静音
      '
      Call CloseVideoAudio
      
      If g_hDllKbdHook <> 0 Then
         Call UnhookWindowsHookEx(g_hDllKbdHook)    '卸载键盘钩子
      End If
      
      '类
      Set FACE = Nothing
      Set MOVELABEL = Nothing
      Set COMM = Nothing
      Set NETLOG = Nothing
      Set INI = Nothing
      
      For Each frm In Forms
         If frm.Name <> "FrmMain" Then
            Call Unload(frm)
         End If
      Next
      '
      End
   Else
     FrmMain.pic_Top(2).Refresh
   End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)
   FACE.Quit
End Sub------------------------
上述代码如果我在界面上直接调用FACE.Quit，能够正常退出。
但是，一但最小化到任务栏后，鼠标右键点击“关闭”就会出错。实在是不懂

Answer 4

需要在主窗体的 QueryUnload 中调用 FACE.Quit