Een flitsend shape in multicolor

[satriano17]

dag
Met deze simpel code (VB6)

Private Sub Timer1_Timer()
    If Not Shape1.Visible Then Shape1.FillColor = IIf(Shape1.FillColor = vbRed, vbBlue, vbRed)
    Shape1.Visible = Not Shape1.Visible
    
End Sub

laat ik een shape flitsen in vbRed, vbBlue, vbRed. En het werkt

Ik wou echter nog andere kleuren toevoegen maar het lukt niet
Zo krijg ik een error.

If Not Shape1.Visible Then Shape1.FillColor = IIf(Shape1.FillColor = vbRed, vbBlue, vbRed, vbYellow, vbGreen)

"Wrong number of arguments"
Wat doe ik verkeerd?

dank u

 

[alphamax]

IIf(Shape1.FillColor = vbRed, vbBlue, vbRed)

Je mag maar 2 keuzes doen, of rood, of blauw, niet meer.

Je zou de "choose"-functie kunnen gebruiken met een index.
Of een "select case"-statement.