Dim CmdObj As New Dictionary(Of Object, Object)
CmdObj.Add("Name","Sel_List") '<-
CmdObj.Add("Parameters", {2, 10, "", ""}) ' <-
Dim CMD As New B4XType("DBCommand", CmdObj)
Dim B4xD As New Dictionary(Of Object, Object)
B4xD.Add("command", CMD)
B4xD.Add("UDev", DevID)
B4xD.Add("Appv", AppVer)
Dim ser As New B4XSerializator
ser.ConvertObjectToBytes(B4xD)