error reconocimiento vbCtrlMask

[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