September 29, 2001

‘ Set the path of the picture used as background of the Windows Explorer toolbar’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetExplorerToolbarPicture “E:WinNTGreenstone.bmp”‘ To remove the bitmap just pass an empty stringPublic Sub SetExplorerToolbarPicture(ByVal sPict As String) Const HKEY_CURRENT_USER

‘ Set whether the IE Options dialog is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEOptionsEnabled FalsePublic Sub SetIEOptionsEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the Key does

‘ Set whether the IE context menu is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEContextMenuEnabled FalsePublic Sub SetIEContextMenuEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the Key does

‘ Determine whether the IE Save As menu item is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Save As menu item is enabled: ” & GetIESaveAsEnabledPublic Function GetIESaveAsEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIESaveAsEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _

‘ Determine whether the IE Options dialog is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Options dialog is enabled: ” & GetIEOptionsEnabledPublic Function GetIEOptionsEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIEOptionsEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _ “NoBrowserOptions”))End Function

‘ Determine whether the IE context menu is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Context menu is enabled: ” & GetIEContextMenuEnabledPublic Function GetIEContextMenuEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIEContextMenuEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _ “NoBrowserContextMenu”))End Function

‘ Determine whether the IE File|New menu item is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “File|New menu item is enabled: ” & GetIEFileNewEnabledPublic Function GetIEFileNewEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIEFileNewEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _ “NoFileNew”))End Function

‘ Set whether the IE File|New menu item is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEFileNewEnabled FalsePublic Sub SetIEFileNewEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the Key

‘ Set whether the IE Save As menu item is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEsaveAsEnabled FalsePublic Sub SetIEsaveAsEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the