VB中Webborswer1如何获取控件当前打开页面的URL详细地址。

在Webborswer控件发生BeforeNavigate事件时即可的到URL地址
代码：
Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)

Text1.Text = URL ‘将当前显示的页面的URL地址显示在Text1上

End Sub