Sub Panel1_Touch (Action As Int, X As Float, Y As Float) As Boolean
Dim pnl As Panel
pnl = Sender
Select Action
Case Activity.ACTION_DOWN
'This works
Case Activity.ACTION_MOVE
'This trigger when I push a panel on my phone, not in emulator (both 2.3.3)
Case Activity.ACTION_UP
'This works
Case 3
'Im using this instead of action_move
End Select
Return True
End Sub