Protected _NumPage As Integer
    Protected _DSet As DataSet

    Public Property NumPage() As Integer
        Get
            Return _NumPage
        End Get
        Set(ByVal Value As Integer)
            _NumPage = Value
        End Set
    End Property

    Public Property DSet() As DataSet
        Get
            Return _DSet
        End Get
        Set(ByVal Value As DataSet)
            _DSet = Value
        End Set
    End Property

    Protected Overrides Sub CreateChildControls()
        Dim i, k As Integer
        Dim Res As Integer
        Dim KolRows As Integer

        KolRows = _DSet.Tables( 0 ).Rows.Count
        Res = Math.Round(_NumPage / KolRows)

        For i =  0  To Res
            k +=  1 
            Dim lbtnNum As New LinkButton
            lbtnNum.Width = Unit.Pixel( 10 )
            lbtnNum.Text = k.ToString
            Me.Controls.Add(lbtnNum)
            '--------------------
            Dim L As New LiteralControl("&nbsp")
            Me.Controls.Add(L)

        Next
    End Sub