Private Function GetCharFromKey(ByVal KeyCode As Integer) As String
        Dim KeyBoardState(255) As Byte
        Dim Out As Integer
        If GetKeyboardState(KeyBoardState(0)) <> 0 Then
            If ToAscii(KeyCode, 0, KeyBoardState(0), Out, 0) <> 0 Then
                If Out <= 255 Then
                    Return System.Text.Encoding.Unicode.GetString(New Byte() _
                      {CByte(Out)})
                End If
            End If
        End If
        Return String.Empty
    End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co