Function GridHeadBind(ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs, ByVal HeadText As String, Optional ByVal CustomColNum As Integer = 1)
If e.Item.ItemType = ListItemType.Header Then
Dim i As Integer
Dim Field() As String
Field = Split(HeadText, ",")
For i = 0 To UBound(Field) - 1
e.Item.Cells(i + 1 + CustomColNum).Text = Field(i)
Next
End If
e.Item.Cells(CustomColNum).Visible = False
End Function