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