Private Sub Form_KeyDown (KeyCode As Integer, Shift as Integer) Select Case KeyCode Case 33 'troque o número pelo número que representa a tecla que você quer usar Print "Page Up" Case 34 Print "Page Down" 'Vá colocando outros números e vendo quais as teclas que eles representam. End Select End Sub