Sub Ser_Connected(Success As Boolean)
If Success Then
Log("serial connected")
Ser.Listen
'************************PreFIX OR NON PREFIX MODE
''Asyx.Initialize(Ser.InputStream, Ser.OutputStream, "Asyx")
Asyx.InitializePrefix(Ser.InputStream, False, Ser.OutputStream, "Asyx")
Do Until Asyx.IsInitialized 'wait for async
Loop
'I have to WAIT here because Asyx.IsInitialized doesn' mean streams are ready
'Tested with debugger when i pauses here and I continue it works
''If no WAIT is here it never sends the data out
Wait(500)
*NOW you can start sending data
Else
Log("serial NOT connected")
End If
End Sub