Public Class Form1
    Dim Selected As Int32, anzeige As Boolean
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub Form1_KeyDown(sender As Object, e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim taste = e.KeyCode - 96
        If e.Control AndAlso taste >= 0 AndAlso taste < 9 Then
            If Not anzeige Then
                Selected = taste
                anzeige = True
            Else
                Selected = taste + Selected * 10
                MsgBox(Selected.ToString)
                anzeige = False
            End If
        End If
    End Sub
 
    Private Sub Form1_KeyUp(sender As Object, e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If Not e.Control Then
            anzeige = False
            Selected = 0
        End If
    End Sub
End Class