controls in Group

[Sjoef]

Hallo, ik heb een formulier met daarop een aantal Checkboxen. Met een loopje kijk ik of er controls zijn aangeklikt. Zoja, dan komt de caption in het document te staan. (For Each ctrC In UserForm1.Controls) Een paar Checkboxen heb ik in een group gehangen. Nu zou ik graag willen dat het loopje alleen de checkboxen uit die groep doorloopt. Dus zoiets: For Each ctrC In UserForm1.Controls.GroupName("A") Iemand enig idee?

JoZ

Opgelost.....

if ctrC.GroupName = "A" then.......

 

[edmoor]

Wellicht ten overvloede:

Private Sub CommandButton1_Click()
    Dim ctr As Control
    For Each ctr In Me.Controls
        If TypeName(ctr) = "CheckBox" Then
            If ctr.GroupName = "A" Then
                Debug.Print ctr.Caption
            End If
        End If
    Next
End Sub