Cabal
Jan 25th, 2000, 01:59 AM
here u go
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
If Shift = 4 Then
KeyCode = 0 'ie do nothing
End If
Else
Exit Sub
End If
End Sub
the only other way of doing it would be to use subclassing (see www.vbaccelerator.com) (http://www.vbaccelerator.com))
and intercept the windows message at a lower level but thats quite hard.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
If Shift = 4 Then
KeyCode = 0 'ie do nothing
End If
Else
Exit Sub
End If
End Sub
the only other way of doing it would be to use subclassing (see www.vbaccelerator.com) (http://www.vbaccelerator.com))
and intercept the windows message at a lower level but thats quite hard.