IEのアドレスバーとかメニューを強制的に表示

IEのアドレスバーとかメニューを強制的に表示

Option Explicit
Dim OBJ_FSO
Dim OBJ_Browser
Dim STR_ProgramName

Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")

For Each OBJ_Browser In CreateObject("Shell.Application").Windows
  STR_ProgramName = OBJ_FSO.GetFileName(OBJ_Browser.FullName)
  If LCase(STR_ProgramName) = "iexplore.exe" Then
	OBJ_Browser.AddressBar = True
	OBJ_Browser.MenuBar = True
	OBJ_Browser.ToolBar = True
	OBJ_Browser.Statusbar = True
  End If
Next