Option Strict On
Public Class Form1
    Public Sub New()
        InitializeComponent()
 
        'Anzuzeigende Tastatur-Zeilen
        Dim zeilen As String() = {"qwertzuiopü+", "asdfghjklöä#", "yxcvbnm,.-"}
        For y As Integer = 0 To zeilen.Length - 1
            For x As Integer = 0 To zeilen(y).Length - 1
 
                Dim zeichen As Char = zeilen(y)(x) 'akt. Taste
 
                ' Button erzeugen, positionieren und anzeigen
                Dim btn As New Button() With { .Text = zeichen.ToString() }
                btn.Bounds = New Rectangle(If(y Mod 2 = 1, 10, 0) + 20 + x * _
                  30, 20 + y * 30, 25, 25)
                Controls.Add(btn)
 
                ' Eventhandler für das Click-Ereignis, der die aktuelle
                ' Taste verwenden kann
                AddHandler btn.Click, _
                    Sub(sender As Object, e As EventArgs)
                        MessageBox.Show("Taste " & zeichen & " gedrückt!")
                    End Sub
 
            Next
        Next
 
    End Sub
End Class