WebBrowser opening in new window

[lavalchung]

I've posted the same question in the general section
but seems that no one answer me. Hope that here
i get an answer.

So i want to know how to open a link in my program window
rather than the IE window when right clicking on a hyperlink
and choosing the "open in new windw"

And how to display the URL of a hyperlink in a label when
the mouse is over it ?

Here you go:


Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim FrmNew As New Form1
Set ppDisp = FrmNew.webbrowser1.Object
Cancel = False
DoEvents
FrmNew.Show

End Sub

And for your second question...


Private Sub webbrowser1_StatusTextChange(ByVal Text As String)
Label1.Caption = Text
End Sub