>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