Sub KVSGetBoolean( Key As String, DbugMsg As String) As Object
Dim IntegerToBoolean() As Boolean
IntegerToBoolean=Array As Boolean(False, True)
Dim KVSObject As KeyValueStore
KVSObject.Initialize(File.DirDefaultExternal, "MindsetVariables")
Dim SimpleValue As Object
Dim Value As Object
SimpleValue = KVSObject.GetSimple(Key)
If SimpleValue <> "0" AND SimpleValue <> "1" Then
Return False
Else
Value = IntegerToBoolean(SimpleValue)
Return Value
End If
End Sub