'Class module
Sub Class_Globals
Private m_kvsApp As KeyValueStore
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize()
'B4A
'm_kvsApp.Initialize(File.DirInternal, "KeyValueStore")
'B4J
m_kvsApp.Initialize(File.DirApp, "KeyValueStore")
End Sub