seDown"
    m_eNodeClickReason = eoptMouseDown
End Sub

Private Sub tvwOpt_NodeClick(ByVal Node As ComctlLib.Node)
Dim lS As Long
Dim sI As String
Dim bAllOff As Boolean
Dim bAllOn As Boolean
Dim sPf As String

   If Not (m_bLocked) Then
    'Debug.Print "NodeClick"
    If (m_eNodeClickReason = eoptMouseDown) Then
        LockWindowUpdate tvwOpt.hwnd
        sPf = Postfix()
        sI = Left$(Node.Image, 6)
        Select Case sI
        Case "OPTION"
            If (Node.Image = "OPTIONNO" &amp; sPf) Then
