Binaryworld - GetIDESetting - Retrieve a setting for the Visual Basic IDE ... [ VB -> AddIn ]

Const HKEY_LOCAL_MACHINE = &H80000002

' read the value of a setting for the VB IDE from the Registry
' Important: only works with VB6
'
' Possible values for SettingName are
' AlignToGrid (returns 0/1)
' BackgroundProjectLoad (0/1)
' CollapseWindows (0/1)
' FolderView (0/1)
' GridHeight, GridWidth  (twips)
' MainWindow, MainWindowSDI  (a space-delimited string
'        with window's pos, size, state, eg "10 20 745 523 1")
' PromptForProjectOnStartup (0/1)
' ResolutionGuides  (0/1)
' SaveBeforeRun   (0/1)
' SDI (0/1)
' ShowClassModuleTemplates, ShowFormTemplates, ShowMDIFormTemplates,
'    ShowModuleTemplates, ShowUserControlTemplates,
' ShowUserDocumentTemplates (0/1)
' ShowGrid    (0/1)
' TemplatesDirectory   (complete path)
' ShowTooltips    (0/1)
' If you pass an unrecognized setting name, it raises error 5
'
' Requires the GetRegistryValue function

Function GetIDESetting(ByVal SettingName As String) As String
  ' note that the following registry key name depends
  ' on the VB version installed
  GetIDESetting = GetRegistryValue(HKEY_CURRENT_USER, _
    "Software\Microsoft\Visual Basic\6.0", SettingName, "***")
  If GetIDESetting = "***" Then Err.Raise 5
End Function