Dim o As OperatingSystem
Dim tasks As List = o.getRunningTasks(10)
Dim task As Object
Dim whichapp As String
task = tasks.Get(1)
Dim r As Reflector
r.target = task
Dim bi As Object = r.GetField("baseActivity")
If bi <> Null Then
r.target = bi
whichapp = r.RunMethod("getPackageName")
End If
Try
Dim pm As PackageManager
Dim il As Intent
il = pm.GetApplicationIntent (whichapp)
StartActivity (il)
Catch
ToastMessageShow ("Failed to launch app! " & quick.Get(position) & " Is it installed?", True)
End Try