【VB.NET】コントロール配列でファンクションキーのボタンを作成する

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

    ' フォームでコントロールのキーイベントを受け取る
    Me.KeyPreview = True

    ' コントロール配列にボタンを設定する
    ArrFKey = {Me.F1, Me.F2, Me.F3, Me.F4, Me.F5, Me.F6, Me.F7, Me.F8, Me.F9, Me.F10, Me.F11, Me.F12}

    ' ボタンコントロールのクリックイベント処理を定義する
    For Each btn As Button In ArrFKey
        AddHandler btn.Click, AddressOf ButtonClick
    Next

End Sub

Private Sub ButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)

    ' ボタンのテキストを取得する
    Dim strFKey As String = DirectCast(sender, Button).Text

    TextBox1.Text = String.Format("{0}キーが押されました。", strFKey)

End Sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

    If e.KeyCode >= Keys.F1 AndAlso e.KeyCode <= Keys.F12 Then
        ' ボタンのClickイベントを発生させる
        ArrFKey(e.KeyCode - Keys.F1).PerformClick()
    End If

End Sub