Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyPageUp And Shift = 0 Then
    <font color=green>' PageUp</font>
    ...
  ElseIf KeyCode = vbKeyPageDown And Shift = 0 Then
    <font color=green>' PageDn</font>
    ...
  End If
End Sub