Tıkladıkça Rengi Değişen Buton

[seddur]

Merhabalar.Aşağıdaki kod ile commandbutton'a tıkladıkça iki kez rengini değiştirebiliyorum ama benim istediğim en az dört kez renk değişmesi.Nasıl yapabiliriz.Yardımcı olursanız sevinirim.

Private Sub CommandButton2_Click()
CommandButton2.BackColor = IIf(CommandButton2.BackColor = _
vbRed, vbGreen, vbRed)
End Sub

 

[byfika]

Merhabalar,
Rnd ile olan alttaki kodu dener misiniz?

Private Sub CommandButton1_Click()
Dim a, b, c As Integer
a = Int((255 * Rnd))
b = Int((255 * Rnd))
c = Int((255 * Rnd))
CommandButton1.BackColor = RGB(a, b, c)
CommandButton2.BackColor = RGB(b, a, c)
CommandButton3.BackColor = RGB(b, uc, a)
CommandButton4.BackColor = RGB(c, a, b)
End Sub

 

[Muzaffer Ali]

Merhaba.
Sanırım istediğiniz şey aşağıdaki gibi.

Private Sub CommandButton2_Click()
    Static RenkNo As Byte
    RenkNo = RenkNo + 1
    If RenkNo > 4 Then RenkNo = 1
    Select Case RenkNo
        Case 1
            CommandButton2.BackColor = vbRed
        Case 2
            CommandButton2.BackColor = vbGreen
        Case 3
            CommandButton2.BackColor = vbYellow
        Case 4
            CommandButton2.BackColor = vbBlue
    End Select
End Sub

 

[seddur]

Teşekkür Ediyorum. özellikle userform'da çalışması önemliydi