'Private Sub FilenameList_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilenameList.LostFocus
    '    UpdateFilenames()
    'End Sub

    'Private Sub RefreshSelectedFilenameTree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) handles Refr
    '    SelectedComponentTree.Nodes.Clear()
    '    XComponent2SelectedComponentNode.Clear()
    '    UpdateSelectedComponents()
    'End Sub

    '#If 0 Then
    '            If XComponent2SelectedComponentNode(Component) Is Nothing Then
    '                ComponentNode = SelectedComponentTree.Nodes.Add(Component.DisplayName)
    '                XComponent2SelectedComponentNode(Component) = ComponentNode
    '                XSelectedComponentNode2Component(ComponentNode) = Component
    '                If XComponent2FilenameList(Component) Is Nothing Then
    '                    FileNode = ComponentNode.Nodes.Add("(component not yet unkooked)")
    '                    Dim NodeFont As Font
    '                    NodeFont = FileNode.NodeFont
    '                    If NodeFont Is Nothing Then
    '                        NodeFont = SelectedComponentTree.Font
    '                    End If
    '                    FileNode.NodeFont = New Font(NodeFont, NodeFont.Style + FontStyle.Italic)
    '                Else
    '                    For Each Filename In XComponent2FilenameList(Component)
    '                        FileNode = ComponentNode.Nodes.Add(Filename)
    '                        If Filenames.ContainsKey(Filename) Then
    '                            Dim NodeFont As Font
    '                            NodeFont = FileNode.NodeFont
    '                            If NodeFont Is Nothing Then
    '                                NodeFont = SelectedComponentTree.Font
    '                            End If
    '                            FileNode.NodeFont = New Font(NodeFont, NodeFont.Style + FontStyle.Bold)
    '                        End If
    '                    Next
    '                End If
    '            End If
    '            If Not XObject2NodeList(Component) Is Nothing Then
    '                For Each ComponentNode In XObject2NodeList(Component)
    '                    ComponentNode.Checked = True
    '                Next
    '            End If
    '        Next

    '        ' remove nodes for components no longer selected
    '        Dim Marked As ArrayList : Marked = New ArrayList()
    '        For Each Component In XComponent2SelectedComponentNode.Keys
    '            If Not SelectedComponents.ContainsKey(Component) Then
    '                Marked.Add(Component)
    '                ComponentNode = XComponent2SelectedComponentNode(Component)
    '                SelectedComponentTree.Nodes.Remove(ComponentNode)
    '                XSelectedComponentNode2Component.Remove(ComponentNode)
    '            End If
    '        Next
    '        For Each Component In Marked
    '            XComponent2SelectedComponentNode.Remove(Component)
    '            If Not XObject2NodeList(Component) Is Nothing Then
    '                For Each ComponentNode In XObject2NodeList(Component)
    '                    ComponentNode.Checked = False
    '                Next
    '            End If
    '        Next
    '        If Marked.Count > 0 Then
    '            UpdateCheckedFiles()
    '        End If

    '#End If