Italian Allungare tempo del clickLong

Sub Globals
        'LongClick
   Dim timer2 As String 
   Dim timer3 As String
   Dim timer4 As Timer
   Dim Period As Int
   Dim event As Int
   Period = 2500
   event = 0
End Sub

Sub Button1_LongClick
   event = 4
   DateTime.TimeFormat = "hh:mm:ss"
   timer2 = DateTime.Time(DateTime.Now)
   timer4.Initialize("timer4",Period)
   timer4.Enabled = True
End Sub

Sub Button1_Up
   If timer2.Length = 0 Then Return
   DateTime.TimeFormat = "hh:mm:ss"
   timer3 = DateTime.Time(DateTime.Now)
   Dim DateTicks As Long
   DateTicks = DateTime.TimeParse(timer3) - DateTime.TimeParse(timer2)
   If DateTicks > Period Then
      LongClickEvent
   End If
End Sub

Sub timer4_tick
   LongClickEvent
End Sub

Sub LongClickEvent()
   Select event
   Case 0
      Return
   Case 1
                ' codice da eseguire
   Case 2
                ' codice da eseguire
   Case 3
                ' codice da eseguire
   Case 4
                ' codice da eseguire
   End Select
   ' reset LongClick
   timer2 = ""
   timer3 = ""
   timer4.Enabled = False
   event = 0
End Sub

Sub Globals
   Dim btn As Button
   Dim LongClick = 1000 As Int 'Tempo richiesto prima dell'evento LongClick
   Dim TimeClick As Long
End Sub

Sub Activity_Create(FirstTime As Boolean)
   btn.Initialize("Button")
   Activity.AddView(btn,Activity.Width/2-60dip,Activity.Height/2-30dip,120dip,60dip)
End Sub

Sub Button_Down
   TimeClick = DateTime.Now
End Sub

Sub Button_Up
   If DateTime.Now-TimeClick < LongClick Then Return
   ToastMessageShow("Evento LongClick",False)
End Sub

Public Sub Panel_Touch(Action As Int, X As Float, Y As Float)
    Select Action
        Case 0
            ' Click
            T=DateTime.Now
        Case 1
            'Rilascio
            If (T-DateTime.Now)>=TempoDutata Then
                CallSub(mCallBack,"Panel_LongLongLongihissimoClick")
            End If
    End Select
End Sub