Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ComboBox1.Items.Add(Keys.F1)
        ComboBox1.Items.Add(Keys.NumPad0)
        ComboBox1.Items.Add(Keys.Space)
        ComboBox1.Items.Add(Keys.ControlKey)
        ComboBox1.SelectedIndex = 0
        TextBox1.Focus()
    End Sub
 
    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        Dim N As String
        N = ""
        Select Case e.KeyCode
            Case 112 : N = "F1"
            Case 96 : N = "NumPad0"
            Case 32 : N = "Space"
            Case 17 : N = "ControlKey"
        End Select
        If ComboBox1.Text = N Then
            MsgBox("Ha presionado " & N)
        End If
    End Sub
End Class

GRACIAS OKIK!!!
La verdad que me fue muy útil  . Ahora tengo otro problema el cual es que al añadir F's o numeros del NumPad o teclas como Space o RControl no se sale el MsgBox.
Al ComboBox los añadi asi:

Código:

ComboBox1.Items.Add(Keys.F1)
ComboBox1.Items.Add(Keys.NumPad0)
ComboBox1.Items.Add(Keys.Space)

Gracias Nuevamente !!!!

     Dim N As String
        N = ""
        If e.KeyCode = Keys.F1 Or e.KeyCode = Keys.NumPad0 Or e.KeyCode = Keys.Space Then
            Select e.KeyCode
                Case 112 : N = "F1"
                Case 96 : N = "NupPad0"
                Case 32 : N = "Espacio"
            End Select
 
            MsgBox("Ha presionado " & N)
        End If

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add(Keys.F1)
        ComboBox1.Items.Add(Keys.NumPad0)
        ComboBox1.Items.Add(Keys.Space)
        ComboBox1.Items.Add(Keys.ControlKey)
    End Sub
 
    Private Sub ComboBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
        Dim N As String
        N = ""
        If e.KeyCode = Keys.F1 Or e.KeyCode = Keys.NumPad0 Or e.KeyCode = Keys.Space Or e.KeyCode = Keys.ControlKey Then
            Select Case e.KeyCode
                Case 112 : N = "F1"
                Case 96 : N = "NumPad0"
                Case 32 : N = "Space"
                Case 17 : N = "ControlKey"
            End Select
            MsgBox("Ha presionado " & N)
        End If
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        Select Case ComboBox1.Text
            Case "F1"
                MsgBox("Keycode: " & Keys.F1)
            Case "NumPad0"
                MsgBox("Keycode: " & Keys.NumPad0)
            Case ("Space")
                MsgBox("Keycode: " & Keys.Space)
            Case "ControlKey"
                MsgBox("Keycode: " & Keys.ControlKey)
        End Select
    End Sub
 
End Class

Private Sub Command1_Click()
Dim e As Variant
Dim i As Variant
For i = 0 To (100)
e = e + (1 / Factorial(i))
Next i
Print e
End Sub
 
Private Sub Command2_Click()
Dim e As Variant
e = (1 + 1 / 10000000000#) ^ 10000000000#
Print e
End Sub
 
Public Function Factorial(NumFactorizar As Variant) As Variant
Dim X As Variant
X = NumFactorizar
For i = 1 To NumFactorizar - 1
X = X * (NumFactorizar - i)
Next i
If X = 0 Then X = 1
Factorial = X
End Function
 

    If e.KeyCode = Asc("L") Then
            MsgBox("Ha presionado ""L""")
        End If

    If e.KeyCode = Asc(ComboBox1.Text) Then
     Dim n$ = Chr(e.KeyCode)
            MsgBox("Ha presionado "  & n$)
        End If

Option Explicit
 
'Constantes
'-----------------------------------
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = _
(TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or _
TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
 
Private Declare Function GetPriorityClass Lib "kernel32" _
(ByVal hProcess As Long) As Long
 
'Estructura para los procesos
'-----------------------------------
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long ' Flags 'Reservado; no usar.
    szExeFile As String * MAX_PATH
End Type
 
'Funciones Api para listar los procesos
'--------------------------------------------------------
Private Declare Function CreateToolhelp32Snapshot Lib _
"kernel32" _
(ByVal lFlags As Long, _
ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" _
(ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Private Declare Function _
Process32Next Lib "kernel32" _
(ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long
 
 
 
Public Const GW_HWNDNEXT = 2
 
Public Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, _
lpdwprocessid As Long) As Long
 
Public Function ProcIDFromWnd(ByVal hwnd As Long) As Long
   Dim idProc As Long
   GetWindowThreadProcessId hwnd, idProc
   ProcIDFromWnd = idProc
End Function
 
Public Function GetWinHandle(hInstance As Long) As Long
   Dim tempHwnd As Long
   tempHwnd = FindWindow(vbNullString, vbNullString)
   Do Until tempHwnd = 0
      If GetParent(tempHwnd) = 0 Then
         If hInstance = ProcIDFromWnd(tempHwnd) Then
            GetWinHandle = tempHwnd
            Exit Do
         End If
      End If
      tempHwnd = GetWindow(tempHwnd, GW_HWNDNEXT)
   Loop
End Function
 
 
Public Function BuscarHandleChrome() As Long
Dim F As Long, r As Long, x As Long
Dim sWindowText As String * 255 'Variable para introducir el texto de una barra con espacios
Dim sClassName As String * 255
Dim hSnapShot As Long
Dim Name As String * 255
Dim uProcess As PROCESSENTRY32
Dim elemento As ListBox
Dim sTextoBarra As String
Dim sNombreClase As String
Dim shwnd As Long
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
 
Do While r > 0
    r = Process32Next(hSnapShot, uProcess)
    shwnd = GetWinHandle(uProcess.th32ProcessID)
    x = GetClassName(shwnd, sClassName, 255)
    sNombreClase = Left(sClassName, x) '<<----Nombre de Clase
 
If Trim(sNombreClase) <> "" Then
  If IsWindow(shwnd) = 1 Then 'si es una aplicación visible
    If IsWindow(shwnd) Then
        If sNombreClase = "Chrome_WidgetWin_1" Then BuscarHandleChrome = shwnd
    End If
End If
End If
Loop
End Function
 

Option Explicit
'Nombres de clase (ClassName) de Chrome
'Chrome_WidgetWin_1           <---Padre
'Chrome_RenderWidgetHostHWND  <---hijo
 
'//Funciones API para incrustar la aplicación en el picture
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, _
ByVal HWNDParent As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
 
 
'//Ejecuta el programa
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
'//Función para cerrar la aplicación incrustada
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
 
Const SW_SHOWNORMAL = 1
Const SW_RESTORE = 9
Const SWP_NOZORDER = &H4
 
Const HWND_TOP = 0
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060&
    ' Función api SetWindowTheme
    Private Declare Function SetWindowTheme Lib "UxTheme.dll" ( _
        ByVal hwnd As Long, _
        ByVal pszSubAppName As Long, _
        ByVal pszSubIdList As Long) As Long
        Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
 
'//////////////////////////////////////////////
'//'Variable para el handle padre de Chrome  //
'//Debe ser variable pública para que al     //
'//cerrar el form únicamente se cierre el    //
'//chrome incrustado en el picture y no      //
'//otra ventana externa de chrome         /////
        Dim HWNDParent As Long
'//////////////////////////////////////////////
Dim N&
Private Sub Command1_Click()
 
If N& = 0 Then ' Si no hay nada dentro del Picture ejecuta el código
   'ShellExecute Me.hWnd, "open", "chrome.exe", _
    "www.elhacker.net", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWNORMAL
 Shell Environ("programfiles") & "\Google\Chrome\Application\" & "chrome.exe", vbNormalFocus
   Do While HWNDParent = 0
   HWNDParent = BuscarHandleChrome
   DoEvents
Loop
 
Do While N& = 0
N& = SetParent(HWNDParent, Picture1.hwnd) 'Meter la apclicación en el picture
DoEvents
Loop
 
'Refresca Chrome por si no se visualiza correctamente
ShowWindow HWNDParent, SW_RESTORE
 
'Ajusta la ventana de Chrome al Picture
Call SetWindowPos(HWNDParent, HWND_TOP, 0, 0, _
Picture1.ScaleWidth, _
Picture1.ScaleHeight, _
SWP_NOZORDER)
End If
 
End Sub
 
Private Sub Cerrar_Chrome(hwnd As Long)
If HWNDParent <> 0 Then
    Call SetParent(HWNDParent, 0)  ' Libera el programa
    Call SendMessage(HWNDParent, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&) 'Cierra el programa
    HWNDParent = 0
End If
   End Sub
Private Sub Form_Load()
    Picture1.ScaleMode = 3 'pixels <-importante para mover _
    y establecer correctamente las dimensiones de la ventana _
    de chrome dentro del picture
    Timer1.Interval = 1
    Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
   Call Cerrar_Chrome(HWNDParent) 'Cierra Chrome
   End
End Sub
Private Sub Timer1_Timer()
Dim x
x = IsWindow(HWNDParent)
If x = 0 Then
N& = 0
HWNDParent = 0
End If
End Sub