   ReDim Preserve m_cFlatten(1 To m_iCount) As cFlatControl
         Set m_cFlatten(m_iCount) = New cFlatControl
         m_cFlatten(m_iCount).Attach ctl
      End If
      If TypeOf ctl Is ComboBox Then
         For i = 1 To 20
            ctl.AddItem ctl.Name &amp; ",Test Item " &amp; i
         Next i
         ctl.ListIndex = 0
      End If
   Next ctl

End Sub

Private Sub optStyle_Click(Index As Integer)
Dim i As Long
   For i = 1 To m_iCount
      m_cFlatten(i).FlatStyle = Index
   Next i

End Sub

</