Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
Dim js As Shell
js.Initialize("js", "tasklist", Null)
js.Run(60000)
End Sub
Sub js_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success Then
Dim m As Matcher = Regex.Matcher("acrobat.exe", StdOut)
Dim count As Int
Do While m.Find
count = count + 1
Loop
Log("Count = " & count)
Else
Log(LastException)
End If
End Sub