y = m_tFolderInfo(iItem).vClosedKey) Then
                piFindFOlderIndex = iItem
            End If
        Next iItem
    End If
End Function

Private Sub tvwOpt_AfterLabelEdit(Cancel As Integer, NewString As String)
   RaiseEvent AfterLabelEdit(Cancel, NewString)
End Sub

Private Sub tvwOpt_BeforeLabelEdit(Cancel As Integer)
    RaiseEvent BeforeLabelEdit(Cancel)
End Sub

Private Sub tvwOpt_Collapse(ByVal Node As ComctlLib.Node)
Dim iIndex As Integer
   Debug.Print "Collapse"
    iIndex = piFindFOlderI