Размер_клетки = 200
   Отступ_слева = 200
   Отступ_сверху = 200
   a = 1
   For i = 1 To 10 
       For j = 1 To 10
           Load imgКлеткаА(a)
           If j = 1 Then
               imgКлеткаА(a).Left = Отступ_слева
           Else
               imgКлеткаА(a).Left = imgКлеткаА(a - 1).Left + Размер_клетки
           End If
           If i = 1 Then
               imgКлеткаА(a).Top = Отступ_сверху
           Else
               imgКлеткаА(a).Top = imgКлеткаА(a - 10).Top + Размер_клетки
           End If
           imgКлеткаА(a).Visible = True
           imgКлеткаА(a).Height = Размер_клетки
           imgКлеткаА(a).Width = Размер_клетки
           a = a + 1
       Next j
   Next i