Android Question Get current running app

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