bho插件在关闭ie时报错

根据
http://hi.baidu.com/itworld_boss/blog/item/f87df4d4d54be602a18bb70e.html
这个教程写的BHO，在ie6下面一台机器好的，一台机器关闭ie时报错，在ie8下面关闭也报错，在ie9下面正常 --------------------编程问答-------------------- 报错?报什么错? --------------------编程问答-------------------- 内存不可读 --------------------编程问答-------------------- 有时候不报错，但是关闭一个ie窗口所有窗口都会关闭
怀疑是关闭时释放资源的问题，但是不知道怎么改 --------------------编程问答-------------------- 沉了，顶一下 --------------------编程问答-------------------- 重点检查下set xxx=nothing的数量是否ok，你的情况应该是在不该set nothing的情况下把对象给释放了 --------------------编程问答-------------------- 提示框标题是sysfader? --------------------编程问答--------------------

引用 5 楼  的回复:

重点检查下set xxx=nothing的数量是否ok，你的情况应该是在不该set nothing的情况下把对象给释放了

在getsite 和 setsite方法中没有释放什么呀 --------------------编程问答--------------------

引用 6 楼  的回复:

提示框标题是sysfader?

标题不是这个，直接是internet explorer:iexplore.exe 
提示内容是：“xxxx”指令引用的“xxxx”内存。该内存不能为"read" --------------------编程问答-------------------- 不要沉 --------------------编程问答-------------------- 有可能如5楼所说,你资源释放有问题. --------------------编程问答-------------------- setsite时有一个处理 你还要检查其他地方 --------------------编程问答-------------------- 整个代码如下

Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB

Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)
M_Site.QueryInte易做图ce Priid, PPVobj
End Sub

Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set M_Site = pSite
Set IE = pSite
End Sub

Private Sub ie_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'这里不放代码也是同样的问题
end sub


怀疑是生成的IObjectWithSiteTLB.tlb文件中有问题，不知道如何下手呀 --------------------编程问答-------------------- 结不了贴了嘛

补充：VB ,  COM/DCOM/COM+