Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.BindGrid()
        Dim NumeroPagine As Integer = DirectCast(GV1.DataSource, DataTable).Rows.Count
        Response.Write(String.Format("Numero di righe Totali: {0}", NumeroPagine))

    End Sub

    Private Sub BindGrid()

        Dim dt As New DataTable()

        dt.Columns.Add("nome")
        dt.Columns.Add("ID")

        Dim dr As DataRow

        ' aggiungo le righe
        dr = dt.NewRow()
        dr("nome") = "Prova1"
        dr("ID") = 1
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova2"
        dr("ID") = 2
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova3"
        dr("ID") = 3
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova4"
        dr("ID") = 4
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova5"
        dr("ID") = 5
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova6"
        dr("ID") = 6
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova7"
        dr("ID") = 7
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova8"
        dr("ID") = 8
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova9"
        dr("ID") = 9
        dt.Rows.Add(dr)
        '
        dr = dt.NewRow()
        dr("nome") = "Prova10"
        dr("ID") = 10
        dt.Rows.Add(dr)

        ' paginazione
        GV1.AllowPaging = True
        GV1.PageSize = 3
        GV1.DataSource = dt

        ' bind
        GV1.DataBind()

    End Sub

    Protected Sub GV1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GV1.PageIndexChanging
        GV1.PageIndex = e.NewPageIndex
        GV1.DataBind()
    End Sub