Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim oDocument As Object
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim strFileName As String
        With OpenFileDialog1
            .FileName = ""
            .ShowDialog()
            strFileName = .FileName
        End With
        If strFileName.Length Then
            oDocument = Nothing
            AxWebBrowser1.Navigate(strFileName)
        End If
    End Sub
 
 Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As _
   AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles _
   AxWebBrowser1.NavigateComplete2
        oDocument = e.pDisp.Document
        With oDocument.Application.CommandBars("Standard")
            .Position = 4 '[msoBarFloating]
            .Visible = True
        End With
        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, _
          SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)
    End Sub
End Class