Private Function GetStackColumnData() As DataTable
	Dim mydata As New DataTable()
	' Define the columns and their names
	mydata.Columns.Add("Series Label", GetType(String))
	mydata.Columns.Add("Segment A", GetType(Integer))
	mydata.Columns.Add("Segment B", GetType(Integer))
	mydata.Columns.Add("Segment C", GetType(Integer))
	mydata.Columns.Add("Segment D", GetType(Integer))
	' Add the rows of data
	mydata.Rows.Add(New [Object]() {"Stack A", 1, 4, 10, 4})
	mydata.Rows.Add(New [Object]() {"Stack B", 3, 6, 4, 5})
	mydata.Rows.Add(New [Object]() {"Stack C", 5, 8, 6, 7})
	mydata.Rows.Add(New [Object]() {"Stack D", 7, 10, 7, 7})
	Return mydata
End Function