Podrias preguntar por los caption del boton e ir cambiando los "estados"
if boton.caption = "ON" then
msgbox"Prendido"
.......
boton.caption ="OFF"
end if
También podrias usar dos botones en la misma posicion e ir ocultandolos (boton1.visible=false).
Espero haberte orientado.