Private Sub Panel_Click
If Enabled Then
If SubExists(CallBack, EventName & "_ItemClick") Then
Dim v As View
v = Sender
CallSub3(CallBack, EventName & "_ItemClick", v.Tag, items.Get(v.Tag))
End If
End If
End Sub
Private Sub Panel_LongClick
If Enabled Then
If SubExists(CallBack, EventName & "_ItemLongClick") Then
Dim v As View
v = Sender
CallSub3(CallBack, EventName & "_ItemLongClick", v.Tag, items.Get(v.Tag))
End If
End If
End Sub