[specci48]

Hi bdiscount,

nice application but I'll receive an error choosing the menu option "back color" since the messagebox (line number 120) isn't implemented correctly.

And a small hint to "delete" the external text file by using the AddEvent command. Add the For/Next loop to you App_Start and additionally add the sub bcClick:

Sub App_Start
For i = 1 To 48 
    AddEvent("bc" & i, Click, "bcClick")
Next
fm1.show
img1.New1
act0(0)
drawer.New1("fm1",false)
End Sub

Sub bcClick
    fc0 = Control(Sender).Color
    c0.color=fc0
End Sub

Now the Draw10.txt is not needed any more!


specci48


Edit:
Since Erel seems to have read this post (suprprise, surprise...), he added a subject "runtime controls manipulation" in the tutorial forum Runtime controls manipulation. Just have a look at it for further explanation...