VB Code:
  1. Dim ctl As Control
  2. For Each ctl In cmdClick
  3.     Debug.Print ctl.Index
  4. Next ctl