try this...

Private Sub webBrowser_NewW indow(ByVal sender As Object, ByVal e As System.Componen tModel.CancelEv entArgs) Handles webBrowser.NewW indow
e.Cancel = True
Dim newBrowser As frmBrowser = New frmBrowser
newBrowser.Show ()
End Sub