Cambiar las funciones de los Teclados

[dsio392i3nkmw9d]

es u ejemplo

__________________________________________________ ____________
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim p As Integer
Private Sub Timer1_Timer()
Dim intAscii
For intAscii = 1 To 255
p = 0
p = GetAsyncKeyState(intAscii)
If p = 65 Then 'sumir a
'canjeo q
Call keybd_event(81, 0, 0, 0)
Call keybd_event(81, 0, KEYEVENTF_KEYUP, 0)
End If
Next
End Sub