I Sergio,

>Sorry I meant a commandbutton

Use a timer and a Custom Property (cCaption) for the Buttons real caption:

*Timer() Event
with Thisform.cmdBlicking
    .Caption = iif(empty(.Caption), .cCaption, '')
endwith

You may need to account for AutoSize!