新人求帮助【一个简单但又很多人不愿意提起的事件】

Question

我的目的很简单 就是禁止vb6.0 webbrowser1控件加载图片  其他的功能不要 
我在网上找到了并下载了olelib.tlb  但是不知道怎么用 下面是我写的 但是没反映。
谢谢了Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim tupian As olelib.IOleControl
tupian.OnAmbientPropertyChange (DLCTL_NO_SCRIPTS)
tupian.OnAmbientPropertyChange -5512
Set tupian = WebBrowser2.Document
End Sub

Answer 1

Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim tupian As olelib.IOleControl
Set tupian = WebBrowser2.Document'''改改顺序再试试
tupian.OnAmbientPropertyChange (DLCTL_NO_SCRIPTS)
tupian.OnAmbientPropertyChange -5512
End Sub