Public Class frmTest
 
    Dim WithEvents btnBackcolor As New Button With {.Parent = Me, .Text = _
      "Backcolor"}
 
    Private Sub frmTest_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.KeyPreview = True
        Me.BackColor = Color.Green
    End Sub
 
    Private Sub frmTest_KeyDown(sender As Object, _
                e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.F7 Then
            MsgBox("F-Taste 7 ist betätigt worden")
            btnBackcolor.PerformClick()
        End If
    End Sub
 
 
    Private Sub btnBackcolor_Click(sender As Object, _
         e As System.EventArgs) Handles btnBackcolor.Click
        If Me.BackColor = Color.Blue Then
            Me.BackColor = Color.Green
        Else
            Me.BackColor = Color.Blue
        End If
    End Sub
End Class