Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyPageUp And Shift = 0 Then
    ' Bild hoch
    KeyCode = 0
    ...
  ElseIf KeyCode = vbKeyPageDown And Shift = 0 Then
    ' Bild runter
    KeyCode = 0
    ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de