Public Sub _AddRegistrySetting( _
   ByVal szSection As String, _
   ByVal szEntry As String, _
   ByVal szDefault As String, _
   ByVal nType As Long, _
   ByVal nFunction As Long, _
   ByVal bUserAdmin As Boolean, _
   ByVal bAutoEnabled As Boolean, _
   ByVal bSingleton As Boolean _
)