Private Sub cleardoc_browser()
    If doc_browser.LocationName = "about:blank" Then Exit Sub
 
    Dim dummy As Object = CType("", Object)
    Dim pt As Point = Me.doc_browser.Location
    Dim sz As Size = Me.doc_browser.Size
 
    Dim resources As System.Resources.ResourceManager = New _
      System.Resources.ResourceManager(GetType(frm_CrefoFactArchiv02))
    Dim _oDocument As Object = Me.doc_browser.Document()
 
    If Not _oDocument Is Nothing Then
      Me.doc_browser.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVE, _
        SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)
    End If
 
    Me.doc_browser.Dispose()
    Me.doc_browser = Nothing
    _oDocument = Nothing
    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.Collect()
    GC.WaitForPendingFinalizers()
 
    Me.doc_browser = New AxSHDocVw.AxWebBrowser
    Me.doc_browser.Enabled = True
    Me.doc_browser.OcxState = CType(resources.GetObject( _
      "doc_browser.OcxState"), System.Windows.Forms.AxHost.State)
 
    CType(Me.doc_browser, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.doc_browser.Size = sz
    Me.doc_browser.TabIndex = 0
    Me.doc_browser.Location = pt
    Me.doc_browser.Parent = Me.Panel_for_the_show
    CType(Me.doc_browser, System.ComponentModel.ISupportInitialize).EndInit()
 
    Me.doc_browser.Navigate("about:blank", dummy, dummy, dummy, dummy)
    Me.doc_browser.ResetText()
    Me.doc_browser.Refresh()
 
  End Sub

Sector Twelve, or to Infinity and Beyond, whichever comes first.!