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("your_application_name", StdOut)
Dim count As Int
If m.Find
Log("Its alive")
Else
Log ("Restart the software again")
End If
Else
Log(LastException)
End If
End Sub