смена цвета при повторном нажатии клавиши

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then If BackColor = vbYellow Then BackColor = vbRed Else BackColor = vbYellow
End Sub

Option Explicit
Dim WithEvents c As CommandButton
Dim WithEvents s As Shape
Dim n As Boolean
 
Private Sub c_Click()
    s.FillColor = IIf(n, vbRed, vbBlue): n = Not n
End Sub
 
Private Sub Form_Load()
    Set c = Controls.Add("vb.CommandButton", "c"): With c
        .Move 0, 0
        .Caption = "Нажми"
        .Visible = 1
    End With
    Set s = Controls.Add("vb.Shape", "s"): With s
        .Move c.Width, 0
        .FillStyle = 0
        .FillColor = vbRed
        .Visible = 1
    End With
End Sub

Option Explicit
'
'Светофор !
'
Dim WithEvents c As CommandButton
Dim WithEvents s As Shape
Dim n&
 
Private Sub c_Click()
    s.FillColor = Choose(n + 1, vbYellow, vbGreen, vbRed): n = (n + 1) Mod 3
End Sub
 
Private Sub Form_Load()
    Set c = Controls.Add("vb.CommandButton", "c"): With c
        .Move 0, 0
        .Caption = "Нажми"
        .Visible = 1
    End With
    Set s = Controls.Add("vb.Shape", "s"): With s
        .Move c.Width, 0
        .FillStyle = 0
        .FillColor = vbRed
        .Visible = 1
    End With
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = Asc("1") Then
    If BackColor = vbRed Then
       BackColor = vbYellow
       Else:
        BackColor = vbRed
    End If
End If
 
End Sub