[VB_Coder]

السلام عليكم

- ضع هذا الكود داخل كود الفورم :

كود :

Dim Is_Cancel As Boolean

Private Sub Form_Load()
    
Is_Cancel = True

Call WebBrowser1.GoHome
Call WebBrowser2.GoHome

End Sub

Private 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)
If Is_Cancel = False Then
   WebBrowser2.Navigate URL
   Cancel = True
End If
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Is_Cancel = False
End Sub

- تحياتي .