各位大虾帮忙，关闭不掉程序线程

Question

把所有对象set 对象名=nothing

Answer 1

Private Sub MdiForm_Unload()
   End
End Sub

Answer 2

我已经将所有窗口set nothing
退出系统也end,数据环境也set nothing
就是不行。是不是和activereport 的控件有关

Answer 3

试试 TerminateProcess ！！！！！！Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long说明 
结束一个进程 
在VB里使用 
可以使用，但尽量不用 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hProcess Long，指定要中断的一个进程的句柄 
uExitCode Long，进程的一个退出代码