' Create a portfolio Dim resPortfolio As Portfolio ' Create 2 Chapters Dim resChapter1 As PortfolioItem Dim resChapter2 As PortfolioItem resChapter1.SetType(0) resChapter1.SetTitle("Chapter1") resChapter2.SetType(0) resChapter2.SetTitle("Chapter2") ' Add the two chapters to the portfolio resPortfolio.Add(resChapter1) resPortfolio.Add(resChapter2) ' Create 4 tab definitions Dim resDemo1 As PortfolioItem Dim resDemo2 As PortfolioItem Dim resDemo3 As PortfolioItem Dim resDemo4 As PortfolioItem resDemo1.SetType(1) resDemo1.SetTitle("TabDef1") resDemo2.SetType(1) resDemo2.SetTitle("TabDef2") resDemo3.SetType(1) resDemo3.SetTitle("TabDef3") resDemo4.SetType(1) resDemo4.SetTitle("TabDef4") ' Add the tab definitions in the chapters resPortfolio.Add(resDemo1, resChapter1) resPortfolio.Add(resDemo2, resChapter1) resPortfolio.Add(resDemo3, resChapter2) resPortfolio.Add(resDemo4, resChapter2) 'Save and open resPortfolio.Save(Survey.Directory + "2. Create TabDefs in chapters.xml") resPortfolio.Open()