Написание Морского Боя на VB6, не получается связать массивы

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

Досталась такая тема курсового, я в VB нубище, самоучители проштудировала, но проблем все еще много. На данный момент зависла на том, чтоб связать массив кнопок с масивом чекбоксов. Если проще: есть основная управляющая кнопка (Command1), 100 чекбоксов(массив CheckA11) и 100 кнопок(Массив A1). Сначала мы расставляем галочки. Потом нажимаем на основную кнопку. После этого нажатия те кнопки массива A1, чей индекс численно совпадает с индексом выбранных галочек, должны остаться видимыми. Те, что по индексу соответствуют не выбранным галочкам, должны стать невидимыми. Вот так я это написала:

                    Листинг программы
                
Private Sub Command1_Click()
If CheckA11(Index).Value = True Then
A1(Index).Visible = True
Else: A1(Index).Visible = False
End If

Но, к сожалению, этот код не работает. То есть срабатывает только на A1(0) и CheckA11(0). На остальные 199 индексов не действует. Как это исправить? Буду очень признательна за ответ.

Решение задачи: «Написание Морского Боя на VB6, не получается связать массивы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
dim Index as integer
for Index=0to 99
    A1(Index).Visible = CheckA11(Index).Value
next
end sub