Hallo,

ich hatte mal einen ähnlichen Fall, habe mir dann so beholfen:
Code:
Config Pind.2 = Input
Portd.2 = 0
...
...
While Pind.2 = 1
Waitms 1
Incr Taster_counter
Wend
If Taster_counter > xxx Then
'lange gedrückt
Else
'kurz gedrückt
End If
Taster_counter = 0
Evtl. hilfts dir ja

Gruß
Chris