Sub AppStart (Args() As String)
...
controller.RunWithOutputEvents(-1)
...
StartMessageLoop
End Sub
Sub controller_StdOut (Buffer() As Byte, Length As Int)
Log("Stdout : " & BytesToString(Buffer, 0, Length, "UTF8"))
End Sub
Sub controller_StdErr (Buffer() As Byte, Length As Int)
Log("StdErr : "& BytesToString(Buffer, 0, Length, "UTF8")
End Sub