Class Program
    Shared Sub Main()
        ' Create a new empty workbook set.
        Dim workbookSet As SpreadsheetGear.IWorkbookSet = SpreadsheetGear.Factory.GetWorkbookSet()
        ' Create a new empty workbook in the workbook set.
        Dim workbook As SpreadsheetGear.IWorkbook = workbookSet.Workbooks.Add()
        ' Add a second worksheet.
        workbook.Worksheets.Add()
        ' Rename worksheet "Sheet1" to "Hello"
        workbook.Worksheets("Sheet1").Name = "Hello"
        ' Rename worksheet "Sheet2" to "World"
        workbook.Worksheets("Sheet2").Name = "World"
        ' Save to C:\MyData.xls.
        workbook.SaveAs("C:\MyData.xls", SpreadsheetGear.FileFormat.Excel8)
        ' Close the workbook, removing it from the workbook set.
        workbookSet.Workbooks.Close()
        ' Open the saved workbook from memory.
        workbook = workbookSet.Workbooks.Open("C:\MyData.xls")
        ' Output the sheet names separated by a space ("Hello World").
        System.Console.WriteLine((workbook.Worksheets(0).Name + " " + workbook.Worksheets(1).Name))
    End Sub 'Main
End Class 'Program