Sub StakePanel_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case StakePanel.ACTION_DOWN
' Your code for DOWN action
Case StakePanel.ACTION_MOVE
' Your code for MOVE action
Case StakePanel.ACTION_UP
' Your code for UP action
End Select
End Sub