Sub AppStart (Args() As String)
Dim shl As Shell
shl.Initialize("shl", "cmd", Array("/c", "c:\temp\Test.bat"))
shl.Run(-1)
StartMessageLoop
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log($"Success: ${Success},
Out: ${StdOut}
Error: ${StdErr}"$)
End Sub