Private Sub dgList_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgList.ItemDataBound

        If e.Item.ItemType.ToString() = "Header" Then

            '----------------------------------------------------------------------------------------

            ' rename DataGrid Columns

            '----------------------------------------------------------------------------------------

            Dim i As Integer

            Dim objDataViewerAPI = New DataViewerAPI

            For i = 0 To e.Item.Cells.Count - 1

                Dim ColumnNameRaw As String = e.Item.Cells(i).Text

                Dim ColumnNamePretty As String = objDataViewerAPI.GetPrettyName(ColumnNameRaw)

                e.Item.Cells(i).Text = ColumnNamePretty

            Next

        End If

    End Sub