Can I bother you for a form that makes use of this?
Thank you

>From VFP command window, issue:
>

>Create class ColorLabel of ClsLabel as Container
>Create class lblChar of ClsLabel as label
>

>Add the properties and fill in the method (from the code I posted) accordingly. If you can't make it work, I'll send you the class.
>
>Regards
>
>>Thanks Herman, how do I apply this code? I am familiar with non visual forms, but not classes.
>>
>>>>I know vfp does not enable to mix colors of chars within a label like you see in EBAY's logo but has anyone come up with a class to do so?
>>>
>>>Hi Timothy,
>>>
>>>Try this. Put these class into a VCX file named "ClsLabel.VCX". Otherwise you can't change the caption and font style. Drop the "ColorLabel" class into the form.
>>>

>>>**************************************************
>>>*-- Class:        colorlabel ( clslabel.vcx )
>>>*-- ParentClass:  container
>>>*-- BaseClass:    container
>>>*
>>>DEFINE CLASS colorlabel AS container
>>>   Width = 55
>>>   Height = 24
>>>   BackStyle = 0
>>>   Name = "colorlabel"
>>>
>>>   **---  Additional properties
>>>   caption = "Color Label"
>>>   fontname = ""    && Blank/Empty = use FontName from FORM
>>>   fontsize = .F.   && FALSE = use FontSize from FORM
>>>   fontbold = .F.
>>>
>>>   ***
>>>   *** Add more FontStyle
>>>   ***
>>>
>>>
>>>   PROCEDURE Init
>>>      Local ln_X, lc_Object, ln_Left
>>>
>>>      With This
>>>         .BorderWidth = 0
>>>         If empty( .FontName )
>>>            .FontName = ThisForm.FontName
>>>         endif
>>>
>>>         If empty( .FontSize )
>>>            .FontSize = ThisForm.FontSize
>>>         endif
>>>
>>>         ln_left = 1
>>>         For ln_X = 1 to len( .Caption )
>>>            lc_Object = 'lblColor' + alltrim(str( ln_X ))
>>>            .NewObject( lc_Object, 'lblChar', 'ClsLabel', , ;
>>>                substr(.Caption, ln_X, 1), .FontName, .FontSize, .FontBold )
>>>
>>>            With .&lc_Object
>>>               .Top = 1
>>>               .Left = ln_Left
>>>               .Visible = .T.
>>>               ln_Left = ln_Left + .Width - 2
>>>            EndWith
>>>         Next
>>>
>>>         .Width = ln_Left + 2
>>>         .Height = .&lc_Object..Height + 1
>>>      EndWith
>>>   ENDPROC
>>>
>>>ENDDEFINE
>>>
>>>
>>>
>>>**************************************************
>>>*-- Class:        lblchar ( clslabel.vcx )
>>>*-- ParentClass:  label
>>>*-- BaseClass:    label
>>>*
>>>DEFINE CLASS lblchar AS label
>>>   AutoSize = .T.
>>>   BackStyle = 0
>>>   Caption = ""
>>>   Height = 17
>>>   Width = 2
>>>   Name = "lblchar"
>>>
>>>
>>>   PROCEDURE Init
>>>   LParameters tc_Char, tc_FontName, tn_FontSize, tl_FontBold
>>>
>>>      With This
>>>         .Caption = tc_Char
>>>         .FontName = tc_FontName
>>>         .FontSize = tn_FontSize
>>>         .FontBold = tl_FontBold
>>>         .ForeColor = int( round(rand(), 4) * 0xFFFFFF )
>>>      EndWith
>>>   ENDPROC
>>>
>>>ENDDEFINE
>>>

>>>
>>>HTH