ct Case eOpt
            Case OptionTreeCheckNone
               If eCurOpt = OptionTreeCheckPartial Then
                  tvwOpt_NodeClick tvwOpt.Nodes(vKey)
               End If
               tvwOpt_NodeClick tvwOpt.Nodes(vKey)
            Case OptionTreeCheckFull
               tvwOpt_NodeClick tvwOpt.Nodes(vKey)
            End Select
            m_eNodeClickReason = 0
            If (bLocked) Then
               m_bLocked = True
            End If
         End If
      End If
   End If
End Property
