Dim generator As New ExcelReportsGenerator() 'Trial Mode
'Dim generator As New ExcelReportsGenerator("place user name here", "place license key here") 'License Mode
 
Dim employees As New List(Of Employee)()
 
Dim employee1 As New Employee()
employee1.FirstName = "John"
employee1.LastName = "Smith"
employee1.Married = True
employee1.NumberOfChildren = 3
employee1.Salary = 60000
employee1.HealthSavingsContribution = 6250
employee1.EmployeeType = EmployeeType.LeadAccountant
employee1.RetirementContributionPercent =.06F
employee1.YearsOfService = 4
employee1.QuarterlyMeetingAttendance = 15
employee1.CompanyCarMileage = 152000
employee1.VacationHours = 120
employee1.SickHours = 40
employee1.PersonalHours = 8
employee1.BirthDate = New Date(1977, 12, 15)
employees.Add(employee1)
 
Dim employee2 As New Employee()
employee2.FirstName = "Joe"
employee2.LastName = "Jones"
employee2.Married = False
employee2.NumberOfChildren = 0
employee2.Salary = 30000
employee2.HealthSavingsContribution = 3000
employee2.EmployeeType = EmployeeType.MediumJanitor
employee2.RetirementContributionPercent =.03F
employee2.YearsOfService = 1
employee2.QuarterlyMeetingAttendance = 4
employee2.CompanyCarMileage = 0
employee2.VacationHours = 80
employee2.SickHours = 20
employee2.PersonalHours = 8
employee2.BirthDate = New Date(1988, 6, 25)
employees.Add(employee2)
 
Using outputStream As New FileStream("GenerateFromListStream.xlsx",FileMode.Create)
    generator.GenerateFromClassList(employees, "Employees", outputStream)
End Using