Sub Activity_Create(FirstTime As Boolean)
Dim OS As OperatingSystem
OS.Initialize("OS")
Dim lstname,lstpid, lstnamepid, lstret As List
lstname.Initialize
lstpid.Initialize
lstnamepid.Initialize
lstret=OS.RunningAppProcessInfo(lstname,lstpid,lstnamepid)
Dim i As Int
For i = 0 To lstname.Size - 1
' Msgbox (lstname.Get(i),lstpid.Get(i))
If lstname.Get(i) = "com.rovio.angrybirdsrio" Then
' OS.killBackgroundProcesses(lstname.Get(i))
OS.killProcess(lstpid.Get(i))
' Msgbox ("Kill process: " & lstname.Get(i),lstpid.Get(i))
End If
Next
OS.killProcess(OS.myPid)
End Sub