.版本 2
.支持庫 HtmlView
.子程序 _超文本瀏覽框1_即將打開新窗口, 邏輯型
超文本瀏覽框1.地址 ＝ 超文本瀏覽框1.狀態條文本
返回 (假)
或者下面這個也行：
webbrowser 有個WebBrowser_NewWindow2的事件
.版本 2
.支持庫 shdocvw
.子程序 _WebBrowser_NewWindow2, , , 將本事件的“Cancel”參數設為“真”，即可阻止彈出窗口
.參數 ppDisp, 對象, 參考
.參數 Cancel, 邏輯型, 參考
' Cancel ＝ 真
ppDisp ＝ WebBrowser1.GetApplication ()
WebBrowser.可視 ＝ 假
WebBrowser1.可視 ＝ 真
因為超文本瀏覽框這個組件不完美，存在壹些BUG（漏洞）建議去下載其他的WEB支持庫。也就是瀏覽器的支持庫。超文本瀏覽框沒啥用。最多用來弄壹些小廣告。