Public Shared Function GetParts(ByVal path As String) As _
     IO.Packaging.PackagePartCollection
      Dim zFile As IO.Packaging.ZipPackage
      zFile = CType(IO.Packaging.Package.Open(path), IO.Packaging.ZipPackage)
 
      Return zFile.GetParts
   End Function