vbShiftMask?

[gtroiano]

i found this code in a thread:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown, Txt
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0

If CtrlDown Then
Select Case KeyCode
Case vbKeyRight
MsgBox "Ctrl+RightArrow pressed."
Case vbKeyHome
MsgBox "Ctrl+Home pressed"
End Select
End If
End Sub

but when i try to use it i get a "Variable not defined" error on vbShiftMask. i looked in the object browser and i could not find it. Does anyone know what the deal is with this thing?

jerry.

 

[gtroiano]

nevermind. i figured it out. i should have waited an extra minute before posting my question. thanks

jerry.