sHELL, не подойдет способ с использованием Control Array? В VB это реализуется просто: даешь всем Label'ам одиннаковое имя, сначала VB будет ругаться - типа такое имя есть, но предложит создать этот самый Control Array, и тогда к этим элементам будет доступ через имя(индекс), а индекс задается в соответствующем поле свойств элемента. При этом процедура будет выглядеть так:
Код:
Const e = "----------"
Private Sub Form_Load()
Dim i As Integer
For i = 0 To n - 1
st(i).Caption = e ' st - имя Контрол Аррея
Next i
End Sub
Вот переписанная прог-а:
вариант.rar