>Hi
>
>Has anyone developed a checkbox class that shows a red tick (or any graphic) instead of the normal black cross when the object is clicked?
>
>Regards
It doesn't need a class. You can use picture and downpicture properties along with graphical style. ie:
Public oForm
oForm = Createobject('myForm')
oForm.Show
Define Class myForm As Form
Add Object chk As Checkbox With ;
Style = 1, ;
Picture = Home(4)+'Icons\Misc\Face04.ico', ;
DownPicture = Home(4)+'Icons\Misc\Face02.ico', ;
PicturePosition = 1, ;
AutoSize = .T., ;
Caption = "Some caption"
Enddefine
Cetin