这段屏蔽Webbrowser弹窗的代码怎么转成vb.net的呢?
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Dim WebBrowser1 As WebBrowser
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub
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
Me.Caption = URL
End Sub