Вывод в TextBox - VB

Формулировка задачи:

Помогите, пожалуйста уже 3 дня гуглю и мучаюсь(( Вобщем так есть 3 разных (круг, квадрат, овал) элемента Shape, для каждого элемента есть 2 CheckBox (объеденённых фреймом) которые регулируют видимость фигуры (тру, фолс). И есть TextBox. Задание: В ТекстБоксе должны выводится название видимых фигур (если делаем невидимыми должно удалятся и наоборот), нужно чтобы каждое название выводилось в тексте с новой строки

Решение задачи: «Вывод в TextBox»

textual
                            Листинг программы 
                        

                            private sub UpdateText()
Dim ctl As Object
'Text1.text=""
For Each ctl In Me.Controls
  If ctl.Visible Then
  ' tut delaesh vse chto xochesh esli contril vidimiy
  'naprimer
  ' Text1.text=Text1.text & vbcrlf & ctl.Name
  
  Else
  ' tut inache
  End If
Next ctl
end sub
                        