Implementation of cross-row merge of DataGrid Headers

Private sub datagrid_itemcreated (byval sender as object, byval e as system. Web. UI. webcontrols. datagriditemeventargs) handles DataGrid. itemcreated
If E. Item. itemtype = listitemtype. header then
Dim datatime as datetime = new datetime
Dim TCl as tablecellcollection = E. Item. Cells
TCL. Clear ()
TCL. Add (New tableheadercell)
TCL (0). rowspan = 2
TCL (0). Text = "no"
TCL. Add (New tableheadercell)
TCL (1). rowspan = 2
TCL (1). Text = "project name"
TCL. Add (New tableheadercell)
TCL (2). rowspan = 2
TCL (2). Text = "Total Investment"
TCL. Add (New tableheadercell)
TCL (3). rowspan = 2
TCL (3). Text = "actual investment completed at the end of last year"
TCL. Add (New tableheadercell)
TCL (4). rowspan = 2
TCL (4). Text = "planned investments in the current year"
TCL. Add (New tableheadercell)
TCL (5). columnspan = 4
TCL (5 ). TEXT = datatime. now. year () & "Year 1-" & datatime. now. month () & amp; "month </Th> </tr> <TH> completed <br> Investment </Th> <TH> annual share <br> (%) </Th> <TH> funds <br> in place </Th> <TH> annual share <br> (% )"
TCL (5). Attributes. Add ("backcolor", "#006699 ")
'The TCL (5). backcolor = "#006699"
End if
End sub