Private Sub AxWebBrowser1_NavigateComplete2(sender As Object, e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
Parent.Text = AxWebBrowser1.LocationName
TextBoxX1.Text = AxWebBrowser1.LocationURL
Form1.Text = AxWebBrowser1.LocationName
End Sub