elect
End Property
Public Property Let NodeCheckType(ByVal Item As Variant, ByVal eType As
 OptionTreeCheckTypes)
Dim sImage As String
   If (eType = OptionTreeCheckPartial) Then
      ' Not allowed. Can only be set by clicking items.
   Else
      ' If the option is already set then exit else
      ' emulate a click on this node.
      sImage = tvwOpt.Nodes(Item).Image
      If (eType = OptionTreeCheckFull) And InStr(sImage, "YES") = 0 Then
         tvwOpt_NodeClick tvwOpt.Nodes(Item)
      ElseIf (eType =