Kod:
Select Case Me.Ayrıntı.BackColor
Case vbWhite
Me.Ayrıntı.BackColor = vbGreen
Case vbGreen
Me.Ayrıntı.BackColor = vbWhite
End Select
Select Case Me.Ayrıntı.BackColor
Case vbWhite
Me.Ayrıntı.BackColor = vbRed
Case vbRed
Me.Ayrıntı.BackColor = vbWhite
End Select