Or you simply use the keyup event instead
test this and the msgbox willshow what key's are pressed. here are the constants.
Constant Value Description
vbShiftMask 1 SHIFT key bit mask.
VbCtrlMask 2 CTRL key bit mask.
VbAltMask 4 ALT key bit mask.

here is some code:
Code:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift Then
MsgBox Shift & " " & KeyCode
End If
End Sub
------------------
On Error Goto Bed :0)
[email protected]



[This message has been edited by onerrorgoto (edited 11-18-1999).]