n As String
   sIcon = tvwOpt.Nodes(vKey).Image
   If (Left$(sIcon, 6) &lt;&gt; "OPTION") And (Left$(sIcon, 6) &lt;&gt; "CHECK_") Then
      pErr 3
   Else
      Select Case Mid$(sIcon, 7, 1)
      Case "Y"
         Value = OptionTreeCheckFull
      Case "N"
         Value = OptionTreeCheckNone
      Case "P"
         Value = OptionTreeCheckPartial
      End Select
   End If
End Property
Public Property Let Value(ByVal vKey As Variant, ByVal eOpt As
 OptionTreeCheckTypes)
Dim sIcon As String
Dim eCurOpt As 