Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private TapCounter1 As TapCounter
End Sub
...
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("Main")
End Sub
'A TapCounter has been added to the default layout through the designer.
Private Sub TapCounter_Click
Log("Click,From TapCounter ")
End Sub
Private Sub TapCounter_LongClick
Log("LongClick,From TapCounter")
End Sub