Button pressed and hold for x time

Getting Started
1

I have touchscreen and i simple button in my app, i want to press the button for 3 seconds and after the release i get the info.
Is possible ?
I am looking around in forum but i don’t see any related thread for this.

2

Property
TimeOver As boolean = false
(Mode = Off, Period = 3000)

Action:

Sub Action() TimeOver = true End Sub

Button:

Function MouseDown(X As Integer, Y As Integer) As Boolean TimeOver = False Timer1.mode = 1 return true End Function

Function MouseUp(X As Integer, Y As Integer) As Boolean if TimeOver = true then MsgBox "MouseUp" end if End Function

3

Thank you @Axel Schneider was perfect… :slight_smile: