Here, this will help :

Set the .Value property of the button to tbrPressed

Code:
    Toolbar1.Button(1).Value = tbrPressed