' 在工程中引用 Microsoft Internet Controls。Option ExplicitPrivate Sub Command1_Click() Dim IEWindow As New SHDocVw.ShellWindows Shell "explorer.exe c:\a.htm" Do IEWindow.Item(IEWindow.Count - 1).ToolBar = False Loop Until IEWindow.Item(IEWindow.Count - 1).Busy = False End Sub
Dim IEWindow As New SHDocVw.ShellWindows
Shell "explorer.exe c:\a.htm"
Do
IEWindow.Item(IEWindow.Count - 1).ToolBar = False
Loop Until IEWindow.Item(IEWindow.Count - 1).Busy = False
End Sub