Sub Globals
Private LastClickTime As Long
Private ClickCount As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Click
If LastClickTime + 1000 < DateTime.Now Then
ClickCount = 0
End If
LastClickTime = DateTime.Now
ClickCount = ClickCount + 1
Log(ClickCount)
If ClickCount = 7 Then
ToastMessageShow("top secret...", True)
End If
End Sub
I have lot of panels.. I guess I need to write the code in Activity_Click event on all
the PANEL CLICK EVENTS so that the Easter Egg is displayed 'wherever' I click on the application....
Is there any facility by which I can make an Activity_Click event 'override' the Panel_Click Events so that I need not code this on the Click event of all the Panels ?