Sub dg1_crea()
        With dg1
            .AutoGenerateColumns = False
            .AllowSorting = True
            .AllowPaging = True
            .PageSize = 30
            .Columns.Add(ButtonColumn("col1", dts1.Columns("col1")))
            .Columns.Add(SortColumn("col2", dts1.Columns("col2")))
            .Columns.Add(BoundColumn("col3", dts1.Columns("col3")))
            .Columns.Add(CheckBoxColumn("chk1", Dts1.Columns("check1"), "cb.ascx"))
        End With
    End Sub

    Private Function ButtonColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
        Dim newcol As New ButtonColumn
        With newcol
            .Text = Etich
            .HeaderText = Etich
            .DataTextField = Col.ColumnName
            .SortExpression = Col.ColumnName
            .CommandName = Etich
            .Visible = True
        End With
        ButtonColumn = newcol
    End Function


    Private Function BoundColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
        Dim newcol As New BoundColumn
        With newcol
            .DataField = Col.ColumnName
            .HeaderText = Etich
            .Visible = True
        End With
        BoundColumn = newcol
    End Function


    Private Function SortColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
        Dim newcol As New BoundColumn
        With newcol
            .DataField = Col.ColumnName
            .SortExpression = Col.ColumnName
            .HeaderText = Etich
            .Visible = True
        End With
        SortColumn = newcol
    End Function

    Private Function CheckBoxColumn(ByVal Etich As String, ByVal Col As DataColumn, ByVal NomeTemplate As String) As Object
        Dim newcol As New TemplateColumn
        With newcol
            .HeaderText = Etich
            .Visible = True
            .ItemTemplate = Page.LoadTemplate(NomeTemplate)
        End With
        CheckBoxColumn = newcol
    End Function