ty Get FolderType(ByVal vKey As Variant) As
 OptionTreeFolderTypeCOnstants
Dim sIcon As String
   sIcon = tvwOpt.Nodes(vKey).Image
   Select Case Left$(sIcon, 6)
   Case "FOLDER"
      If Mid$(sIcon, 7) = "@" Then
         FolderType = optiontreeFolderCustom
      Else
         FolderType = OptionTreeFolder
      End If
   Case "CHECK_"
      FolderType = OptionTreeCheck
   Case Else
      pErr 5
   End Select
   
End Property
Public Property Get Value(ByVal vKey As Variant) As OptionTreeCheckTypes
Dim sIco