Foros del Web - Ver Mensaje Individual

matarasky · #1 (**permalink**) 10/03/2011, 07:30

Código:

  Private Sub Menu_Principal_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
        ' If Shift = 6 And KeyCode = vbKeyDown Then
        'MsgBox("Ctrl + Alt + Flecha Baja")
        '  End If
        ' If Shift = 2 And KeyCode = vbKeyP Then
        'MsgBox("Ctrl + P")
        '  End If
        If KeyCode = Asc("h") And Shift = vbCtrlMask Then ' ACA ME TIRA EL ERROR

            MsgBox("Estamos de pruebas")
        End If
    End Sub

no me reconoce el vbCtrlMask, ya que es para vb6 y trabajo con visual basic 2010. alguien sabe cual seria el equivalente ?
probé con CtrlMask , pero tampoco

Error 1 'vbCtrlMask' no está declarado. Puede que esté inaccesible debido a su nivel de protección.

plz help me:D