Как глобально подменить нажатую клавишу на другую

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
 'If GetAsyncKeyState(Keys.E) Then
  '          SendKeys.SendWait(Keys.I)
   '     End If

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    
    'Это в таймер:
    If GetAsyncKeyState(Keys.E) Then 'Если нажата кнопка Е то
    SendKeys.SendWait(Keys.I) 'Послать нажатие кнопки I
    End If
 
End Class

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetForegroundWindow() As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    Const WM_KEYDOWN = &H100
    Const WM_KEYUP = &H101
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 150
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Enter) <> 0 Then 'Если нажата кнопка Enter то
            If GetForegroundWindow() = FindWindow(vbNullString, "Сапер") Then 'Если активное приложении = саперу
                PostMessage(GetForegroundWindow(), WM_KEYDOWN, Keys.F2, 0) 'Посылаем нажатие кнопки F2 (т.е. начать новую игру).
                PostMessage(GetForegroundWindow(), WM_KEYUP, Keys.F2, 0) 'Отжатие F2.
            End If
        End If
    End Sub
 
End Class

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            TextBox2.Focus()
        End If
    End Sub
 
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            TextBox1.Focus()
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub