Sub GetSetting2(Key As String, DefaultValue As String)
If Settings.IsInitialized = False Then
'load the stored settings
If File.Exists(File.DirInternal, settingsFileName) Then
Settings = File.ReadMap(File.DirInternal, settingsFileName)
Else
Return DefaultValue
End If
End If
Dim v As String
v = Settings.GetDefault(Key.ToLowerCase, DefaultValue)
Return v
End Sub