Dim idx As Int = 0
Dim payload(payload_len) As Byte 'payload_len was received earlier..assume it's 1200 bytes
idx = 0
Do Until idx >=payload_len
Wait For astreams_NewData (Buffer() As Byte)
UpdateStatus("Received payload data...Buffer Length:" & Buffer.Length)
bc.ArrayCopy(Buffer,0,payload,idx,Buffer.Length)
idx = idx + Buffer.Length
Loop
Dim obj_buffer2() As Object = ser.ConvertBytesToArray(payload)
Dim num_codes As Int = obj_buffer2(0) 'number of codes is always first element
'TxtNumCodes.Text = NumberFormat(num_codes,0,0)
UpdateStatus("num_codes: " & num_codes)
'TxtIRCodeStr.Text = FlatArray(obj_buffer,num_codes,",")
ret_ircode.IRCode = FlatNumberArray(obj_buffer2,num_codes,",")
ret_ircode.num_codes = num_codes
Return ret_ircode