the infinite reservoars of wisdom, and expelled:

Trap the keys in the _KeyDown event of the object / form (if you
set .KeyPreview to True for the Form, it will receive all key
strokes). The _KeyDown event has a flag for Ctrl, Alt and Shift
called Shift. You can find constants for the Shift flag in
CONSTANTS.TXT.

' This code traps the Ctrl key
Sub control_KeyDown (KeyValue As Integer, Shift As Integer, ....)
        If Shift = CTRL_MASK Then
                Msgbox "You pressed Ctrl"
        End If
End Sub

Jens
--
Everything I said are the opinions of someone else.
I just cut-and-pasted.

Jens Balchen jr.       http://www.*-*-*.com/ ~balchen

I cant figure out how to check if the user is holding down one or more
of the control, shift and alt keys. Can someone please help me? I
trued the Keystat.VBX but that doesnt work on these keys, do I need a
third-party VBX or can I do this in code?

If someone can help please post the code here, or preferably mail me.

Thanx

---------------------------------------------------------------
Frode Breimo

www: http://www.idb.hist.no/~frodeb
---------------------------------------------------------------

This is easy to accomplish by creating a global variable
ie CtrlDown as boolean

Say that you want to do show a form if the user holds down
the ctrl and d to display a form called about...

Private Sub ListBox1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 17
        CtrlDown=True
Case 68
        'Show form about
        If CtrlDown = True Then
            CtrlDown = False
            about.Show
        End If
End Select
End Sub

______________________________________________________
Andy Brunner
Phone: (201) 216 3511
Fax:   (201) 216 3511
Address: S209 Castle Point
         Hoboken NJ 07030

http://attila.stevens-tech.edu/~abrunner/
______________________________________________________