 "OPTIONNO" &amp; Postfix()
    End If
    ilsIcons.ListImages.Remove vKey
    ilsIcons.ListImages.Add , vKey, pic
End Property
Property Get OptionPicture( _
        ByVal bState As Boolean _
    ) As StdPicture
Dim vKey As Variant
    If (bState) Then
        vKey = "OPTIONYES" &amp; Postfix()
    Else
        vKey = "OPTIONNO" &amp; Postfix()
    End If
    Set OptionPicture = ilsIcons.ListImages(vKey).Picture
End Property
Property Set CheckPicture( _
        ByVal eType As OptionTreeCheckTypes, _
       