This is a multi-part message in MIME format.

------=_NextPart_000_0010_01C1D323.DDF96630
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

MessageOk it worked
Thanks guys


  ----- Original Message -----
  From: Duncan
  To: professional vb
  Sent: Tuesday, March 19, 2002 12:22 AM
  Subject: [pro_vb] RE: Form Keydown event


  Hi

  Dim Shifkey as Integer

  Private Sub Text1_KeyDown(KeyCode As Integer, _     
      Shift As Integer)  
  ShiftKey =3D Shift And 7
  Select Case ShiftKey     
      Case 1 ' or vbShiftMask        
          Print "You pressed the SHIFT key."     
      Case 2 ' or vbCtrlMask         
          Print "You pressed the CTRL key."
      Case 4 ' or vbAltMask         
          Print "You pressed the ALT key."
      Case 3         
          Print "You pressed both SHIFT and CTRL."     
      Case 5         
          Print "You pressed both SHIFT and ALT."
      Case 6         
          Print "You pressed both CTRL and ALT."     
      Case 7         
          Print "You pressed SHIFT, CTRL, and ALT."     
  End Select
  End Sub

  I think you'll find this is what you are looking for

  Duncan
  MCP,MCSD,AMIAP
    -----Original Message-----
    From: Michel Medawar [mailto:mmedawar@t...]
    Sent: 16 March 2002 14:30
    To: professional vb
    Subject: [pro_vb] Form Keydown event


    Hi everybody;

    I'm using the form keydown to trap some events,
    for just one key like VBKeyS it's working right,
    but when it comes for double keys like Ctrl+S
    I used (VBControl + VBKeyS) i don't know if it's
    right bcoz it didn't work.

    Thanks in adavnce;
    Michel Medawar