Sub IsScreenOn As Boolean
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "power", "java.lang.String")
Return r.RunMethod("isScreenOn")
End Sub
Sub Activity_Resume
If IsScreenOn=True Then
'mycode here (start music, start timer, etc..)
End If
End Sub