utilzo este codigo
Código:
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i) 'gets the key state
If result = -32767 Then 'if a known key is pressed, it will be displayed in the textbox1
Text1.Text = Text1.Text + Chr(i)
End If
Next i
Es el mas facil codigo que vi y por eso quero añadirle esas funciones por que cuando le doy al borrar o poner caracters como & %%$%$ ·$· de esos me salen letras raras , alguien que me eche una manita en como lograr eso ._.