Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyPageDown Or _ KeyCode = vbKeyPageUp Then KeyCode = 0 End If End Sub