کلیک کردن روی لینک توسط WebBrowser

[aleas2]

سلام خسته نباشید دوستان توسط این کد


For n = 0 To WebBrowser1.Document.All.Length - 1

If WebBrowser1.Document.All(n).tagName = "A" Then
Text2.Text = WebBrowser1.Document.All(n).href
If InStr(WebBrowser1.Document.All(n).href, "page.aspx?act=edit") > 0 Then

WebBrowser1.Document.All(n).Click
Exit For

End If
End If
Next n

روی تگ a کلیک میکنم حالا راهی هسته نتیجه کلیک کردن روی تگ a در WebBrowser22 نمایش داده بشه؟
دقیقا مثل مرورگر ویندوز که رو لینک راست کلیک میکنیم
open link in new tab

[meys34]

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
WebBrowser2.Silent = True
Set ppDisp = WebBrowser2.Object
End Sub