Detecting Touch and Click separately on a panel

Sub Panel1_Click

    Msgbox("Tapped", "")

End Sub

Sub Panel1_LongClick

    Msgbox("Long Tap", "")

End Sub

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
   If Action = Activity.ACTION_UP Then
      'handle ACTION_UP event
      Log("ACTION_UP")
      Dim v As View
      v = Sender
      If X > 0 AND X < v.Width AND Y > 0 AND Y < v.Height Then
         'handle CLICK event
         Log("click")
      End If
   End If
End Sub

Sub panel_Touch (Action As Int, x As Float, y As Float)
   dim touchstart, touchduration as long

   If Action = Activity.ACTION_UP Then
      touchduration = DateTime.Now - touchstart     ' calculate touch duration

      if touchduration < 400 then ' Short click

      else ' long click/touch

      end if
      
   Else If Action = Activity.ACTION_DOWN Then      
      touchstart = DateTime.Now           ' remember exact time of touch event
      
End If