>Button doesn't go down and the up as if you clicked on it, it remains always up.

Ok, then maybe you could have some audio effects :)
procedure command1.when
?? CHR(7)
command1.click

.. a joke, of course.