Public Class Form1
  Dim keyBuffer As String = ""
 
  Private Sub Form1_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
 
    Static oTime As System.Diagnostics.Stopwatch = _
      New System.Diagnostics.Stopwatch
 
    ' Falls mehr als 2 Sekunden seit letztem Tastendruck vergangen,
    ' Zeichenketten-Puffer löschen
    If Not oTime.IsRunning Then oTime.Start()
    If oTime.ElapsedMilliseconds > 2000 Then
      keyBuffer = ""
      oTime.Reset()
      oTime.Start()
    End If
 
    keyBuffer &= e.KeyChar
    If keyBuffer = "exit" Then
      Me.Close()
    End If
  End Sub
End Class