If kvs.IsInitialized = False Then
Log("init----->")
Dim kvPath As String
If File.ExternalWritable = False Then
kvPath = File.DirInternal
Else
kvPath = File.DirDefaultExternal
End If
kvs.Initialize(kvPath, "settings")
End If
If kvs.GetEncrypted("EncrptedArr", "MyPass") = Null Then
Dim zpole(7) As String
zpole = Array As String("00", "192.168.0.0", "roop12", "lato", "zeppelin", "rb123", "fpat")
kvs.PutEncrypted("EncrptedArr", zpole, "MyPass")
Dim xort(7) As String
xort = kvs.GetEncrypted("EncrptedArr", "MyPass")
.......