Private WithEvents ti As System.Windows.Forms.Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ti = New Timer
        ti.Interval = 500
        ti.Start()
 
    End Sub
    Private Sub ti_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles ti.Tick
        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 sZahl As String
 
        If enterd = True Then
            Do While 1
                If GetAsyncKeyState(13) = 0 Then
                    For x = 96 To 105
                        If GetAsyncKeyState(x) <> 0 Then
                            sZahl &= (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
 
            Dim lZahl As Integer = CType(sZahl, Integer) * 2
 
            For x = 0 To lZahl
                mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
                mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
                Application.DoEvents()
            Next
        End If
    End Sub
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Click
        Debug.WriteLine(nCount)
        nCount += 1
    End Sub
End Class