OptionTreeCheckTypes
Dim bLocked As Boolean

   If eOpt = OptionTreeCheckPartial Then
      pErr 4
   Else
      sIcon = tvwOpt.Nodes(vKey).Image
      If (Left$(sIcon, 6) &lt;&gt; "OPTION") And (Left$(sIcon, 6) &lt;&gt; "CHECK_") Then
         pErr 3
      Else
         eCurOpt = Value(vKey)
         If (eOpt &lt;&gt; eCurOpt) Then
            If (m_bLocked) Then
               bLocked = True
               m_bLocked = False
            End If
            m_eNodeClickReason = eoptMouseDown
            Sele