I know i'm missing something obvious....

[NTSGuru]

I have these 2 sets of code, and my brain must have gone into retirement because I can't get them to work... any help anyone?

Dim objLabel As Label
For Each objLabel In frmMain
objLabel.Font = strFont
Next

Dim objBtn As MyHandmadeBtnObj
For Each objBtn In frmMain
objLabel.captioncolor = ColorChoice
Next


TIA
Fred

 

[MickTheBelgian]

try using SET font=...

 

[Walid]

Hi my friend,
Yes you are missing 2 things..
1- Font is an object by it self, if you want to assigne a name for it you have to use .Name
2- To assigne color use RGB() function.
So your code will be like that

    Dim objLabel As Label
    For Each objLabel In frmMain
        objLabel.Font.Name = strFont
    Next

    Dim objBtn As MyHandmadeBtnObj
    For Each objBtn In frmMain
        objLabel.captioncolor = RGB(X,Y,Z)
    ' X,Y,Z are intergers represent the intensity of each color
    Next

Hope this will help
Thanks,
Walid Magd
Engwam@Hotmail.com