codice:
static l1 as long
dim l2 as long
dim delta as single

if l1 = 0 then
   l1 = timer
else
   l2 = timer
   delta = (l2-l1)/1000
   msgbox delta
end if
premi una volta parte premi la seconda si ferma