shape and color

How do i set up so that the code for each optionbutton control must set the width and the color of the shape?

and if so that an 1 option button be the normal shape size
option 2 would be 2.5 times bigger
option 3 would be 3.5 times bigger

Is this what you mean?


Private Sub Option1_Click()
Shape1.BorderColor = vbRed
Shape1.FillColor = vbRed
Shape1.Width = 480
End Sub

Private Sub Option2_Click()
Shape1.BorderColor = vbBlue
Shape1.FillColor = vbBlue
Shape1.Width = 480 * 2.5
End Sub

Private Sub Option3_Click()
Shape1.BorderColor = vbGreen
Shape1.FillColor = vbGreen
Shape1.Width = 480 * 3.5
End Sub

that is so beautiful that is exactly what i mean thank you so much :-D