02. Используя оператор Type, можно создать собственный массив данных. Например, линий
Type colorLINE 'назначаем тип объекта
x1 As Long 'Абцисса начала
y1 As Long 'Ордината начала
x2 As Long 'Абцисса конца
y2 As Long 'Ордината конца
color As Long 'Цвет линии
'... Здесь Вы можете добавить любые объекты, переменные и т.п.
End Type
Dim myLine(2) As colorLINE 'выделяем массив для линий
'==============================================================
' Заполнение массива
Public Function funArrayLines(frm As Form)
Dim i As Integer
For i = 0 To 1
Select Case i
Case 0 'Горизонтальная линия
myLine(i).x2 = 100
myLine(i).color = RGB(255, 0, 0) 'Красный цвет
frm.Линия1.BorderColor = myLine(i).color 'Меняем цвет линии
Case 1 'Вертикальная линия
myLine(i).y2 = 100
myLine(i).color = RGB(0, 255, 0) 'Зеленый цвет
frm.Линия2.BorderColor = myLine(i).color 'Меняем цвет линии
End Select
Next i
End Function