Dim usm As UsageStatsManager
usm.Initialize("")
Dim starttime As Long
Dim a, b As Long
a = DateTime.TimeParse(DateTime.Time(DateTime.Now))
b = 5 * DateTime.TicksPerSecond
Dim orario As String = DateTime.Time( a - b )
starttime = DateTime.TimeParse(orario)
'starttime = DateTime.Now
Dim endtime As Long
endtime = DateTime.Now
Dim usage1 As List = usm.queryUsageStats(starttime,endtime)
If usage1.Size>0 Then
For i=0 To usage1.Size-1
Dim us As UsageStats = usage1.Get(i)
If us.PackageName="com.android.camera" Then LogColor(us.LastTimeUsed, Colors.Blue)
Next
End If