Cambiar las funciones de los Teclados

[sandro20]

Hola quisiera que me ayuden ha crear un programa en vb6 que Cambie las funciones de los teclados Ejemplo.!!

Apreto Tecla Alt = como si taria presionando Tecla Control
Apreto Tecla Supri = Como si taria apretando Tecla Enter

Bueno Solo es un ejemplo.!!

Aca un chamo lo hizo Quisiera hacerlo similar aca lo dejo para que lo vean
[URL="http://www.mediafire.com/download/xdlybbfsvjililk/AimbotKEYS.exe"]http://www.mediafire.com/download/xdlybbfsvjililk/AimbotKEYS.exe[/URL]

Con el Redondo Del mause ejecute la Tecla Impri Pant Pet Sis

Espero que puedan ayudarme Gracias :)

[Carlangueitor]

¿Y que llevas o en que parte se te dificulta? Si no sabes ni por donde empezar quizá un manual de VB sería lo mejor.

Saludos

[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