press button - change color

press button - change color

Hello all,
PLEASE, SOMEONE CAN TELL ME WHAT IS BAD. I want to change the color of the button when I press this button. The steps that I followed are the nexts:
1- I have created one screen called: Main_screen
2- In this screen I have created a button: Button1.
3- In Button1, I go to properties, VBA Macros I open the LeftClickUp and I select the proper Macro.
4- I created the macro in the MacroList. The macro is called: LeftClickUp_Button1
5- The text of the program in VBA is:
Sub change_color()
Dim myElem As Element
Dim myScrn As DynPicture
Set myScrn = thisProject.DynPictures.Item("Main_screen")
If Not myScrn Is Nothing Then
Set myElem = myScrn.Elements.Item("Button1")
If Not myElem Is Nothing Then
myElem.BackColor = RGB(89, 58, 12)
End If
myScrn.UpdateAll
End If
End Sub
--------------------------------------
Public Sub LeftClickUp_Button1(obElem As Element)
Â'Call subroutine
change_color
End Sub
WHAT IS BAD? I can not achieve anything.
Thanks a lot.
Roberto

This is a migrated post! Originally posted on 25.10.2013 by user rgv0021. Please be aware that information can be outdated.