Sub Panels_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
startX = X
startY = Y
Case Activity.ACTION_UP
If Abs(Y - startY) > 20%y Then Return
If X - startX > 30%x Then 'AND btnRight.Enabled = True
ChangePanel(False)
Else If startX - X > 30%x Then 'AND btnLeft.Enabled =
ChangePanel(True)
End If
End Select
End Sub