Dim WithEvents Web_V1 as SHDocVwCtl.WebBrowser_V1
Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 "http://www.microsoft.com/"
Private Sub Web_V1_NewWindow(ByVal URL As String, _ ByVal Flags As Long, _ ByVal TargetFrameName As String, _ PostData As Variant, _ ByVal Headers As String, _ Processed As Boolean) Processed = True WebBrowser1.Navigate URL End Sub
联系客服