QUOTE(paperclipmuffin @ 24 Jun, 2009 - 11:01 PM)

Can you show us the code you have used so far to try to solve the problem?
Thank you for helping us help you.

I dont now how to do it, so i put all the records in the listbox and passed thru them one by one with timer untill the end of listbox.
CODE
'add records to listbox
With rst
If Not .BOF Then .MoveFirst
While Not .EOF
listbox.AddItem !Stats, intLine
intLine = intLine + 1
.MoveNext
Wend
End With
'Timer
If listbox.Selected(intSumLines - 1) = True Then intTimerLine = 0
listbox.Selected(intTimerLine) = True
intTimerLine = intTimerLine + 1
i dont like that way, i want to so them the records like pages and because this records will be used for public view i dont now what monitor will they use and what fontsize.
Thank you for your time
I hope i was understandable