well I am trying to get around looking at all the buttons with a case
statement so I was trying this.
Public Sub looking(ctlname)
Dim ctl As OptionGroup
Dim btn As ToggleButton
ctl = Me.Controls(ctlname)
=============================
For Each btn In ctl.children <<<< I know that the children doesn't
make since .its just a note to myself..this is where I am stumped.
I thought maybe ctl.controls but now shure what or how to loop thru
these
= ============================
If btn.OptionValue = ctl.Value Then
btn.ForeColor = 255
Else
btn.ForeColor = 0
End If
Next
I was hoping to go thru the buttons in the option group and if it was
the selected button change the foreground color.
but I can't get the grasp of exactly what a button is in an
optiongroup