Paginazione: levare i numeri e mettere delle immagini

[Daniele80]

ciao a tutti,
io nella mia paginazione mi muovo da una pagina all'altra con questo codice:

    Sub BuildPagers()

        ' ciclo
        Dim i As Integer
        Dim lb As Label

        If TotalPages > 1 Then
            lb = New Label()
            lb.Text = "Ci sono " & TotalPages & " pagine con i risultati: "
            paginazione.Controls.Add(lb)

            For i = 1 To (TotalPages)
                lb = New Label()
                lb.ID = "ThisPage" & i
                If CurrentPage = i Then
                    lb.Text = "[" & i & "] " & vbCrLf
                Else
                    lb.Text = "[" & i & "] " & vbCrLf
                End If
                paginazione.Controls.Add(lb)
            Next
        End If
    End Sub

io vorrei evitare di scrivere i numeri ecc.. e mettere delle immagini che mi rappresentano la Prossima Pagina e la Precendente.

come posso fare?

[Daniele80]

Sub BuildPagers()
        If TotalPages >= 1 Then
            Dim btnNext As New HyperLink()
            btnNext.ImageUrl = "images\bottoni\bottnext.gif"
            If CurrentPage < TotalPages Then
                btnNext.NavigateUrl = "lista.aspx?cat=" & cat.Replace(" '", "''") & "&p=" & CurrentPage + 1
            End If
            btn_Next.Controls.Add(btnNext)
            Dim btnLast As New HyperLink()
            btnLast.ImageUrl = "images\bottoni\bottlast.gif"
            If CurrentPage > 1 Then
                btnLast.NavigateUrl = "lista.aspx?cat=" & cat.Replace(" '", "''") & "&p=" & CurrentPage - 1
            End If
            btn_Last.Controls.Add(btnLast)
        End If
end sub