Binaryworld - GetVBASetting - Retrieve a setting for the Visual Basic VBA code edito ... [ VB -> AddIn ]

Const HKEY_LOCAL_MACHINE = &H80000002

' read the value of a setting for the VBA editor from the Registry
'
' Possible values for SettingName are:
' AutoQuickTips2   (0/1)
' AutoStatement2   (0/1)
' AutoValueTips2   (0/1)
' BackGroundCompile (0/1)
' CompileOnDemand   (0/1)
' DragDropInEditor  (0/1)
' EndProcLine     (0/1)
' FontFace      (a string, eg "Courier New")
' FontHeight     (an integer number)
' OBGroupMembers   (0/1) (OB=Object Browser=
' OBSearchHeight   (an integer number)
' RequireDeclaration (0/1)
'
' If you pass an unrecognized setting name, it raises error 5
'
' Requires the GetRegistryValue function

Function GetVBASetting(ByVal SettingName As String) As Variant
  GetVBASetting = GetRegistryValue(HKEY_CURRENT_USER, _
    "Software\Microsoft\VBA\Microsoft Visual Basic", SettingName, "***")
  If GetVBASetting = "***" Then Err.Raise 5
End Function