SelectFormColor

Public Class Form1

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

        Me.KeyPreview = True
        AddHandler Me.KeyDown, AddressOf Form1_KeyPerssed

    End Sub

    Private Sub Form1_KeyPerssed(sender As Object, e As KeyEventArgs)

        Select Case e.KeyCode
            Case Keys.R, Keys.D
                Me.BackColor = Color.Red
            Case Keys.G, Keys.N
                Me.BackColor = Color.Green
            Case Keys.B, Keys.E
                Me.BackColor = Color.Blue
            Case Keys.Y, Keys.W
                Me.BackColor = Color.Yellow
            Case Keys.C, Keys.A, Keys.K
                Me.BackColor = Color.Black
            Case Else
        End Select
    End Sub

End Class