Type returnresult(case_type As String,result As Object)
-------------------------------------------------------------------------
dim alist as list
alist.initialize
for i = 0 to 100
alist.add(i)
next
Dim ReturnResult As returnresult
ReturnResult.Initialize
ReturnResult.case_type="ReturnErrorData"
ReturnResult.result=alist
client.Publish(red.unique_id,Ser.ConvertObjectToBytes(LTSReturnResult))