Public Sub CreateTreeNode(ByVal ZipParts As _
     IO.Packaging.PackagePartCollection, ByVal node As TreeNode)
      For Each ZipPart As IO.Packaging.PackagePart In ZipParts
         Call AddZipPart(node, ZipPart.Uri.ToString)
      Next
   End Sub
 
   Private Sub AddZipPart(ByVal node As TreeNode, ByVal path As String)
      Dim parts As String() = path.Split("/"c)
 
      For i As Integer = 1 To parts.Length - 1
         parts(i) = parts(i).Replace("%20", " ")
 
         If node.Nodes.ContainsKey(parts(i)) Then
            node = node.Nodes(node.Nodes.Count - 1)
         Else
            node = node.Nodes.Add(parts(i), parts(i))
         End If
      Next
   End Sub

   Private Sub SortTreeNode(ByVal node As TreeNode, ByVal i As Integer)
      For Each n As TreeNode In node.Nodes
         If n.Nodes.Count > 0 Then
            Dim temp As TreeNode = n
            node.Nodes.Remove(n)
            node.Nodes.Insert(i, temp)
            temp = Nothing
 
            Call SortTreeNode(n, 0)
            i += 1
         End If
      Next
   End Sub