I'm afraid that this thread is outdated because the 'standard' Touch event has no return variable anymore.
But you can handle a kind of LongClick event in the Touch event routine.
Dim pnlTest As Panel
Dim Time0 As Long
Dim x0, y0 As Float
Dim LongClickTime = 500 As Long
Sub Activity_Create(FirstTime As Boolean)
Activity.AddView(pnlTest, 0, 0, 100%x, 100%y)
Sub pnlTest_Touch (Action As Int, X As Float, Y As Float)
Time0 = DateTime.Now
x0 = X
y0 = Y
Activity.Title = "Down"
Activity.Title = "Move"
If DateTime.Now - Time0 > LongClickTime AND X - x0 < 10dip AND Y - y0 < 10dip Then
Activity.Title = "LongClick"
Activity.Title = "Up"