Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Main") 'Load the layout file.
MainForm.Show
Dim shl As Shell
shl.Initialize("getOpenFiles", "cmd.exe", Array As String("/c", "openfiles"))
' shl.WorkingDirectory = "c:\windows\System32"
shl.Run(-1)
End Sub
Sub getOpenFiles_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log(StdOut)
Log(StdErr)
End Sub