form1Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) Set pDisp = WebBrowser2.Application Form2.WebBrowser2.Navigate URL Cancel = True End Sub
Set pDisp = WebBrowser2.Application
Form2.WebBrowser2.Navigate URL
Cancel = True
End Sub