[...]
Function RegistryRead$(strSect$, strKey$)
RegistryRead = GetSetting(APPNAME, strSect, strKey, "")
End FunctionSub RegistryWrite(strSection$, strKey$, strEntry$)
SaveSetting APPNAME, strSection, strKey, strEntry
End Sub
(C) Peter Rachow