С помощью Load создаем обычный одномерный "недомассив", задаем:
- Код: Выделить всё
Dim Labs () as label
а в FormLoad после серии Load-ов цикл:
- Код: Выделить всё
redim labs(xMax,yMax)
for y=0 to yMax
for x=0 to xMax
set labs(y,x)=Label(x+y*xMax)
next x
next y