Sub SetPressed(cmd As Button, Pressed As Boolean)
Dim ref As Reflector
ref.Target = cmd
ref.RunMethod2("setPressed", Pressed, "java.lang.boolean")
End Sub
The Pressed property in the visual designer doesn't have any effect at runtime. Its purpose is to allow you to see how the button will look like when it is pressed.