Sub FindRunningProgram (Package As String)
Dim sb As StringBuilder
sb.Initialize
Phone1.Shell("ps", Null, sb, Null)
Dim m As Matcher
m = Regex.Matcher2("^[^ ]*\s+(\d+) .*" & Package, Regex.MULTILINE, sb.ToString)
If m.Find Then
'Log(Package & " is running")
Return True
Else
'Log(Package & " is NOT running")
Return False
End If
End Sub