How to change the color of a button when clicked?

[Vickie Peters]

Hi I am new to the forum. I have created a form in Word 2007. I have implemented a radio button on the form. I want to add custom code so that every time the button is clicked, the color of the button changes. For example, I was thinking along the lines of a code that is similar to a snippet that I found on the web:

Private Sub OptionButton1_Click()
Option Explicit
Dim index As Integer
Dim indicator(5) As ColorConstants
 
Private Sub Form_Load()
  indicator(0) = vbGreen
  indicator(1) = vbRed
  indicator(2) = vbBlack
  indicator(3) = vbYellow
  indicator(4) = vbBlue
 
End Sub

Can you please provde guidance for me?
Thank you.
Vickie

[Guido Geurs]

This is changing the color each time the optionbutton is clicked.

Option Explicit
Dim indicator(5) As Variant
Dim index As Integer
 
 
Private Sub UserForm_Activate()
indicator(0) = vbGreen
indicator(1) = vbRed
indicator(2) = vbBlack
indicator(3) = vbYellow
indicator(4) = vbBlue
index = 0
End Sub
 
Private Sub OptionButton1_Click()
   OptionButton1.BackColor = indicator(index)
   index = index + 1
   If index > 5 Then index = 0
End Sub

[imavp2]

Hi Guido.
Sorry for the delay. Thanks a million for the code and of course it worked. However, once I launched the form I realized it was not what I had in mind. I apologize. I have a form with several radio buttons. I was able to get the background to change colors for each button. I actually wanted the circle itself to change colors. Should I upload the form so you can better visualize what I am trying to accomplish? If you work with me on the code for this once, I am sure that I will catch on and not need to keep coming back. I have some VB6 code for circles that I can also share with you. Let me know if I need to upload both for your review.
Vickie

[imavp2]

Sorry. Ok I will remember to use tags for when uploading code.
Vickie

[Guido Geurs]

Please can you attach your code in Bytes?
You want to change the color of the button (the circle)it self?
Than it will not work with the standard radio buttons in VB6.
If so, we will have to create or own buttons!