CheckBoxes vs. OptionButtons in VBA

[rdezell]

I have a UserForm in Excel with 100 checkboxes. At runtime, depending on which CommandButton a user clicks on, I get the contents of a particular column on one of 3 sheets and use those values for the Caption property of some (or all) of the CheckBoxes and hide the rest. My problem is that I also have 2 OptionButtons on the form, and my code for finding the Checkboxes and setting the Captions is not distinguishing between them and the CheckBoxes.

    Dim i As Integer
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.CheckBox Then
            If i < intNumChoices Then
                ctl.Caption = astrChoices(i)
                ctl.Visible = True
                i = i + 1
            Else
                ctl.Visible = False
            End If
        End If
    Next

(Please, no comments about the Hungarian notation. I still prefer it! :-)

When I run this, the first two values in astrChoices() are put on the OptionButtons. How do I distinguish between the two different types of controls?

Thanks.

[Hack]

Try moving the two option buttons into a picturebox control or a frame control and get them off of the form itself.

(By the way, I have a comment on your Hungarian notation. You go right ahead and keep using it. I still do.....in I use it for naming my controls in VB.NET projects!)

[rdezell]

Thanks, but that didn't work. However, I solved it by using the name:

If Left(ctl.Name, 8) = "CheckBox" Then

Really strange!

(Yes, I continued using Hungarian notation to the end of my 4-decades-long software development career (mostly VB.net at the end). And, even though I was chair of our Development Governance Council, I never could convince the younger members of what I perceived to be its advantages. Oh, well -- I'm free to use it all I want now! :-)

[rdezell]

Thanks, but that didn't work. However, I solved it by using the name:

If Left(ctl.Name, 8) = "CheckBox" Then

Really strange!

(Yes, I continued using Hungarian notation to the end of my 4-decades-long software development career (mostly VB.net at the end). And, even though I was chair of our Development Governance Council, I never could convince the younger members of what I perceived to be its advantages. Oh, well -- I'm free to use it all I want now! :-)

[Hack]

Yes, it is strange, and not something I can duplicate.

I didn't put 100 checkboxes on a userform, but, for testing purposes, I did put 10 on one and then added a couple of option buttons. I had no difficulty interating through the checkbox group and ignoring the option buttons.

On another note, I've encountered other instances where VBA code did not work as I would have expected so I'm not completely surprised that you needed to employ some creative coding.

And you have me by an entire decade....I've only been at it for 3