Binaryworld - SetIEContextMenuEnabled - Decide whether IE context menu is enabled ... [ VB -> Windows ]

' 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 False

Public Sub SetIEContextMenuEnabled(ByVal bEnabled As Boolean)
  Const HKEY_CURRENT_USER = &H80000001
  Dim sKey As String

  sKey = "Software\Policies\Microsoft\Internet Explorer\Restrictions"

  ' if the Key does not exist
  If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
    ' create the key
    CreateRegistryKey HKEY_CURRENT_USER, sKey
  End If

  ' set the value
  SetRegistryValue HKEY_CURRENT_USER, sKey, "NoBrowserContextMenu", _
    Abs(Not bEnabled)

End Sub