Page up Page down in a list box

[TonC]

Hello,
I've got a question about page up and page down in a listbox. I would like to use one button for page up en one button for page down. and when I press one of these 2 buttons,
the record which is selected must be highlighted in the listbox and in my combo box with input.
Note: all the records must be showed, so no filter.

Now I trying to this with selection boxes by the using following code:

Private Sub OptionButton112_Click()
    Me.Keuzelijst12.SetFocus
    If Me.OptionButton112.Value = True Then
       SendKeys "Fn+{PGDN}"
       SendKeys "Fn+{PGDN}"
       SendKeys "Fn+{PGDN}"
   End If
End Sub

This code set 3 pages down. But you understand if I have 10 pages in the listbox, I have to use 10 times SendKeys "Fn+{PGDN}" in my code. Its working nice but not practical.
I searched the internet, I could not find a topic about pDown and Pup in a listbox.
I hope you can help.

Its raining in the Netherlands, so this is a good day to solve this issue.

Greetings,
TonC