' Create a portfolio
Dim resPortfolio As Portfolio
Dim i = 0
Dim j = 0

For i = 1 to 8  'Create 8 chapters
  Dim resChapter As PortfolioItem    
  	  resChapter.SetType(0)
      resChapter.SetTitle("Chapter " + i)
  	  resPortfolio.Add(resChapter)
  For j = 1 to 10  'Create 10 tab definitions in each chapter
		Dim resDemo As PortfolioItem
            resDemo.SetType(1)
            resDemo.SetTitle("TabDef " + j)
		    resPortfolio.Add(resDemo, resChapter)
  Next j
Next i

'Save and open
resPortfolio.Save(Survey.Directory + "4. Create TabDefs in chapters (Loop).xml")
resPortfolio.Open()