A simple watchdog that detects Android ANRs (Application Not Responding) for B4A

Usage:

Sub Globals
Dim ANR As WatchDog
End Sub

Sub Activity_Create(FirstTime As Boolean)
ANR.Startdelay(10000)
End Sub