Как прочитать индекс элемента коллекции Controls? - VB

Формулировка задачи:

Народ, подскажите пожалуйста как прочитать индекс элемента, допустим CommandButton из коллекции динамически созданных элементов. Пишу:

ReDim c(Nc) As CommandButton
Set c(Nc) = FormShab.Controls.Add("VB.CommandButton", "Command" & Nc)
With c(Nc)
.Visible = True
.Caption = .Name
.DragMode = 1
End With

Читаю: MsgBox c(Nc).Index Говорит, что данные отсутсвуют и вообще элемент массива отсутсвует. В чем может быть дело? Заранее благодарен.

Решение задачи: «Как прочитать индекс элемента коллекции Controls?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click(Index As Integer)
 Dim i As Integer
 i = Index + 1
 Load Command1(i)
    
 Command1(i).Top = 0
 Command1(i).Visible = True
 
 MsgBox Command1(i).Index
 
End Sub
                        