Page up Page down in a list box

[TonC]

Hello Aussiebear,
Has this code anything to do with it ?

Private Sub Keuzelijst12_GotFocus()
    With Me.Keuzelijst12
        .ListIndex = 0
        .SetFocus
    End With
End Sub