Switching 3 colors on Form

[Malak]

Hello,
I wonder how the following code must be updated so the back color is:

1st click: yellow
2nd click: red
3rd click: blue
4th click: yellow
etc.

Sub btnMyButton_Click()
'   The background color is gray at the beginnng
If frmMyForm.BackColor <> vbYellow Or frmMyForm.BackColor = vbRed Then
  frmMyForm.BackColor = vbYellow
Else
frmMyForm.BackColor = vbRed
End If
End Sub

Thank you, Malak

[June7]

Need to save this count somewhere and refer to that saved value. Options:

1. an unbound textbox

2. a public/global variable

3. TempVars

Be aware that VBA variables lose value in run-time errors, however, TempVars do not.

[georgiboy]

Maybe the below will help:

Sub btnMyButton_Click()   
   '   The background color is gray at the beginnng
    Select Case frmMyForm.BackColor
        Case -2147483633 ' grey (none)
            frmMyForm.BackColor = vbYellow
        Case 65535 ' yellow
            frmMyForm.BackColor = vbRed
        Case 255 ' red
            frmMyForm.BackColor = vbBlue
        Case 16711680 ' blue
            frmMyForm.BackColor = vbYellow
    End Select
End Sub

[arnelgp]

you may also try:

Private Sub btnMyButton_Click()
    Static iSwitch As Integer
    Dim intValue As Integer
    Dim lngColor As Long
    
    iSwitch = iSwitch + 1
    
    ' there are only 3 for colors at the moment
    intValue = (iSwitch Mod 3) + 1
    
    'set the lngColor depending on intValue
    lngColor = Choose(intValue, vbBlue, vbYellow, vbRed)
    
    'The background color is gray at the beginnng
    frmMyForm.BackColor = lngColor
End Sub

[p45cal]

To deal with any number of colours, adjust the first line:

Private Sub btnMyButton_Click()
myColours = Array(vbYellow, vbRed, vbBlue, vbGreen, vbMagenta, 16737894, vbCyan)    'adjust this line to suit, this is an example.
'myColours = Array(vbYellow, vbRed, vbBlue) 'adjust this line to suit, this is the original request.
With frmMyForm
  x = Application.Match(.BackColor, myColours, 0)    'is the current colour in the list? and if so, where?…
  If IsError(x) Then    'no it isn't:
    .BackColor = myColours(0)    'first colour in the list if it's not one of the existing colours.
  Else    'yes it is:
    .BackColor = myColours(x Mod (UBound(myColours) + 1))    'the next colour in the list.
  End If
End With
End Sub

[Malak]

Thank you to everyone for providing your code.

[June7]

Oh, I get it now, colors are progressive so no need to track the click count. Duh!
Glad you have working solution.