Dim x As Integer, enterd As Boolean
        Dim f As String = System.Environment.GetEnvironmentVariable( _
          "SYSTEMROOT") + "\media\ding.wav"
        If GetAsyncKeyState(13) <> 0 Then
            Debug.WriteLine("geentert")
            System.Threading.Thread.Sleep(300)
            If GetAsyncKeyState(97) <> 0 Then
                Debug.WriteLine("1")
                System.Threading.Thread.Sleep(300)
                If GetAsyncKeyState(98) <> 0 Then
                    Debug.WriteLine("2")
                    System.Threading.Thread.Sleep(300)
                    If GetAsyncKeyState(99) <> 0 Then
                        Debug.WriteLine("3")
                        '                        System.Threading.Thread.Sleep( 
                        ' 500)
                        Me.PlaySound(f, 0, SND_FILENAME)
                        enterd = True
                    End If
                End If
            End If
        End If
        Dim Zahl As String
 
        If enterd = True Then
            Do While 1
                If GetAsyncKeyState(13) = 0 Then
                    For x = 96 To 105
                        If GetAsyncKeyState(x) <> 0 Then
                            Zahl &= (x - 96).ToString
                            Debug.WriteLine(x)
                            System.Threading.Thread.Sleep(300)
                            Me.PlaySound(f, 0, SND_FILENAME)
                        End If
                    Next
                Else
                    Exit Do
                End If
            Loop
        End If