Отлов клавиш извне приложения

Public Class Form1
    Dim kSt() As Byte
    Dim caption As String
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short
    Private Declare Function ToAsciiEx Lib "user32" (ByVal uVirtKey As Long, ByVal uScanCode As Long, ByVal lpKeyState As Byte, ByVal lpChar As Long, ByVal uFlags As Long, ByVal dwhkl As Long) As Long
    'Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
    Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Integer) As IntPtr
    Private Declare Function GetForegroundWindow Lib "user32" () As Long
    ' Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
    'Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As IntPtr, ByRef lpdwProcessId As UInt32) As UInt32
    'Public Declare Function GetKeyboardState Lib "user32" (ByVal pbKeyState As Byte) As Long
    Public Declare Function GetKeyboardState Lib "user32" (ByVal keyState As Byte) As Long
    'Public Declare Function GetKeyboardState Lib "user32" (ByVal keyState As Integer) As Short
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim kSt(255)
    End Sub
 
 
 
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim ch As Integer
        GetKeyboardState(kSt(0))
        For vK = 32 To 128
            'Get the keystate of a specified key -32767
            If GetAsyncKeyState(vK) <> 0 Then 'какая-то из клавиш нажата
                ToAsciiEx(vK, 0, kSt(0), ch, 0, GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, 0)))
                caption = Chr(ch)
                Exit For
            End If
        Next
        TextBox1.Text &= Caption
 
    End Sub