实际上属于转贴。。呵呵:-)

原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。

原文的中文地址是：

http://support.microsoft.com/kb/185538/zh-cn

实际上，这个实现就是获取一个接口，还是叫事件吧。。。。更明显，反正我是分不清这些东西的。

DimWithEventsWeb_V1AsSHDocVwCtl.WebBrowser_V1

163的链接一般都是弹出窗口，就用163吧

PrivateSubForm_Load()

SetWeb_V1=WebBrowser1.Object

WebBrowser1.Navigate2"http://www.163.com/"

EndSub

如果你想知道弹出窗口的URL呢，那就

PrivateSubWeb_V1_NewWindow(ByValURLAsString,_

ByValFlagsAsLong,_

ByValTargetFrameNameAsString,_

PostDataAsVariant,_

ByValHeadersAsString,_

ProcessedAsBoolean)

Processed=False

MsgBoxURL

EndSub

如果你想让弹出窗口在原来的窗体里显示呢，就

PrivateSubWeb_V1_NewWindow(ByValURLAsString,_

ByValFlagsAsLong,_

ByValTargetFrameNameAsString,_

PostDataAsVariant,_

ByValHeadersAsString,_

ProcessedAsBoolean)

Processed=True

WebBrowser1.NavigateURL

EndSub