Sub Preference_Touch (Action As Int, X As Float, Y As Float) As Boolean
'Return True to consume the event
'Save the selected value panel
Dim SelectedPanel as panel
SelectedPanel = Sender
Select Case SelectedPanel.Tag
Case "Index"
Msgbox(SelectedPanel.Tag,"Panel Selected")
End Select
End Sub