[VB6] WebBrowser: bloccare apertura nuova finestra

[chiamatekatia]

Salve a tutti,
Ho una finestra internet creata con l'oggetto WebBrowser. Vorrei che quando si clicca su un link che prevede l'apertura di una nuova finestra, la pagina si apri invece al posto di quella in cui si stava navigando.
Ho trovato il codice (che ho messo qua sotto) per aprire la nuova finestra in un nuovo form, ma io vorrei invece che sostituisse proprio la pagina che si stava visualizzando.

Come si fa?

 Private Function IsPopupWindow() As Boolean
      On Error Resume Next
      If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then
      IsPopupWindow = True
      Else
      IsPopupWindow = False
      End If
      End Function

       

      Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
      Dim frm As Form1
      Cancel = IsPopupWindow
      If Cancel = False Then
      Set frm = New Form1
      Set ppDisp = frm.WebBrowser1.object
      frm.Show
      End If
      End Sub