e.KeyCode

 e.KeyCode  ... 

 'MsgBox(e.KeyCode)
        Select Case e.KeyCode
            Case 112     'Keys.F9
                TabMenu.SelectedIndex = 0       '' REC
            Case 113     'Keys.F10
                TabMenu.SelectedIndex = 1       '' FREE - REP
            Case 114     'Keys.F11
                TabMenu.SelectedIndex = 2       ''
            Case 115     'Keys.F12
                TabMenu.SelectedIndex = 3
        End Select



        If TabMenu.SelectedIndex = 0 Then       '' ISSUE
            Select Case e.KeyCode
                Case 97, 49
                    getMaimMenu.IDMenu = "ID1_1"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 98, 50
                    getMaimMenu.IDMenu = "ID1_2"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 99, 51
                    getMaimMenu.IDMenu = "ID1_3"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 100, 52
                    getMaimMenu.IDMenu = "ID1_4"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 101, 53
                    getMaimMenu.IDMenu = "ID1_5"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 102, 54
                    getMaimMenu.IDMenu = "ID1_6"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()

                Case 103, 55
                    getMaimMenu.IDMenu = "ID1_7"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()
            End Select
        End If

        If TabMenu.SelectedIndex = 1 Then         '' ISSUE
            Select Case e.KeyCode
                Case 97, 49
                    getMaimMenu.IDMenu = "ID2_1"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()
                Case 98, 50
                    getMaimMenu.IDMenu = "ID2_2"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()
                Case 99, 51

                    getMaimMenu.IDMenu = "ID2_3"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()
                Case 100
            End Select
        End If
        If TabMenu.SelectedIndex = 2 Then    '' ISSUE
            Select Case e.KeyCode
                Case 97, 49
                    getMaimMenu.IDMenu = "ID3_6"
                    Dim frmm As New FrmLogin
                    frmm.ShowDialog()
                Case 98

                Case 99

            End Select
        End If
        If TabMenu.SelectedIndex = 3 Then        '' STOCK
            Select Case e.KeyCode
                Case 97
                Case 98
                Case 99
                Case 100
                Case 101
            End Select
        End If