'Put this where you would save the setting:
SaveSetting app.EXEName, "Options", "Splash", Check1.Value

'Put this where you would get the setting:
x = GetSetting(app.EXEName, "Options", "Splash", True)
'x = GetSetting (appname as string, section as string, key as string, setting as string) (The setting is the default, if there is no value for that key)