error reconocimiento vbCtrlMask

[matarasky]

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

[matarasky]

Esta hecho con el F1 para visual basic .NET
deben tener el keypreview en True
o en el load poner
Keypreview = True

Código:

 Private Sub Menu_Principal_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Declaramos la variable de las teclas del teclado
        Dim tecla As New System.Windows.Forms.Keys()
        tecla = e.KeyValue
        'Si la tecla pulsada es igual a F1
        If tecla = Keys.F1 Then
            'muestra un msgbox
            MsgBox("Con esta :F1: tecla estas mostrando una caja de texto, Msgbox")
        End If
    End Sub

eeeeeeeeeeeeeeeeeeeeeeeee

[matarasky]

Combinacion CTRL + F8

Código:

   
 Private Sub Menu_Principal_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Declaramos la variable de las teclas del teclado
        Dim tecla As New System.Windows.Forms.Keys()
        Dim tecla2 As New System.Windows.Forms.Keys()
        tecla = e.KeyValue
        tecla2 = e.Modifiers
        'Si la tecla pulsada es igual a F1
        If tecla2 = Keys.Control And tecla = Keys.F8 Then
            'muestra un msgbox
            MsgBox("Abrira el Historial de las Estadisticas, Historial")
        End If
    End Sub