Как обращаться к Checkbox, если они вызываются программно???

[555Ksenia555]

Доброго времени суток. Уже который день не могу разобраться с программой. Дело вот в чем: На форму я вывела два компонента OptionButton, и при кликании на них программным способом выходят флажки Checkbox, которые считываются с файла Excel. Теперь мне нужно научится управлять этими флажками, но я незнаю как. Нужно сделать так чтобы при кликании на OptionButton1, выводился столбец подним, а при кликании на OptionButton2 выводился столбец под ним, а под OptionButton1 исчезал и наоборот. Чтоб было понятнее вот код моей программы:
Private Sub OptionButton2_Click()

Z = 10
sstr = Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z)
While Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z) <> "-"
Z = Z + 1
Wend

K = 0
Z = Z + 1

sstr = Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z)
While Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z) <> "-"
If Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z) <> "" Then
Dim x As Control
Set x = Controls.Add("Forms.CheckBox.1")
With x

.Height = 15
.Left = 70
.Top = 80 + K
.Visible = True
.Caption = Workbooks(FilePath).Worksheets("рас чёты").Cells(1, Z)

.Name = "Chbox" & Z \\ я думаю нужно изменить что-то в этих двух
.ChBox(10).Visible = False \\строчках

End With
K = K + 15
End If
Z = Z + 1
Wend
Razdel = Z

End Sub


Заранее спасибо.

[doober]

Посмотрите на примере комбобокса как подписаться на событие динамично созданых контролов через модуль класса