ndex(, Node.Image)
    If (iIndex &gt; 0) Then
        Node.Image = m_tFolderInfo(iIndex).vClosedKey
    End If
End Sub

Private Sub tvwOpt_DblClick()
    'Debug.Print "DblClick"
End Sub

Private Sub tvwOpt_Expand(ByVal Node As ComctlLib.Node)
Dim iIndex As Integer
    iIndex = piFindFOlderIndex(Node.Image)
    If (iIndex &gt; 0) Then
        Node.Image = m_tFolderInfo(iIndex).vOpenKey
    End If
End Sub

Private Sub tvwOpt_KeyDown(KeyCode As Integer, Shift As Integer)
    'Debug.Print "KeyDown", KeyCode
  