Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Key down event
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Me.Dirty Then
        If KeyCode = vbKeyPageDown Or _
           KeyCode = vbKeyPageUp Then
           KeyCode = 0
        End If
    End If
End Sub