Sub Panels_Touch (Action As Int, X As Float, Y As Float)
Select ActionCaseActivity.ACTION_DOWN
startX = X
startY = Y
CaseActivity.ACTION_UP
If Abs(Y - startY) > 20%y Then
If Y - startY > 30%y True Then
ToastMessageShow ("down",True) Return
Else If startY - Y > 30%y = True Then
ToastMessageShow ("up",True) Return
End If
End If
If X - startX > 30%x = True Then
ChangePanel(False)
Else If startX - X > 30%x = TrueThen
ChangePanel(True)
End If
End Select
End Sub