Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        CaricaDati()
    End Sub
    Private Sub CaricaDati()
        Dim dttTabella As New DataTable("Dati")
        Dim DtCColonnaA As New DataColumn("Valore A")
        Dim DtCColonnaB As New DataColumn("Valore B")
        dttTabella.Columns.Add(DtCColonnaA)
        dttTabella.Columns.Add(DtCColonnaB)
        System.Threading.Thread.Sleep(1000)
        For intConta As Integer = 1 To 10051
            Dim riga As DataRow = dttTabella.NewRow()
            riga(0) = "Valore A di " & intConta
            riga(1) = "Valore B di " & intConta
            dttTabella.Rows.Add(riga)
        Next
        GridView1.DataSource = dttTabella
        System.Threading.Thread.Sleep(1000)
        GridView1.DataBind()
    End Sub