Dim resPortfolio As Portfolio ' Create a portfolio Dim resItem As PortfolioItem ' Define a portfolio item resItem.SetType(1) ' Set the portfolio item as a tab definition resItem.SetTitle("A. Add one question to Rows and Columns") ' Set the tab definition's title resItem.TabDef.ReadTabTemplate("Askia Simple") ' Set a tab template to use from the library ' We must avoid using variable shortcuts as the script is no longer generic. resItem.TabDef.Rows.Add(^S1^) ' Example only. Use Tags or Question Types instead resItem.TabDef.Columns.Add(^S2^) ' Example only. Use Tags or Question Types instead resPortfolio.Add(resItem) ' Add tab definition to the portfolio resPortfolio.Save("A. Add one question to Rows and Columns.xml") ' Save the portfolio (default is same location as script file) resPortfolio.Open() ' Open the portfolio