 ByRef pic As StdPicture _
    )
Attribute CheckPicture.VB_Description = "Gets/sets an image to be used to draw
 check boxes."
Dim vKey As Variant
    Select Case eType
    Case OptionTreeCheckPartial
        vKey = "CHECK_PART" &amp; Postfix()
    Case OptionTreeCheckNone
        vKey = "CHECK_NO" &amp; Postfix()
    Case OptionTreeCheckFull
        vKey = "CHECK_YES" &amp; Postfix()
    End Select
    ilsIcons.ListImages.Remove vKey
    ilsIcons.ListImages.Add , vKey, pic
End Property
Property Get CheckPi