Dim sh1 As Shell
sh1.Initialize("sh1",File.Combine(File.DirApp,ExeFileName),Null)
sh1.WorkingDirectory = File.DirApp
sh1.Run(-1)
Wait For (sh1) sh1_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success And ExitCode = 0 Then
Log("Success")
Log(StdOut) 'print ????????
End If