Задача - перебрать в проекте все контролы CheckBox и сохранить их значения - VB

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

Задача - перебрать в проекте все контролы CheckBox и сохранить их значения (то что имена повторяються - не учитывать), перебераю все формы, пытаюсь перебрать все CheckBox но ничего не получается - во внутрь IF я не попадаю... хотя если заменить CheckBpx на например так же присутствующие в проекте ToolBar то условие пашет... ЧТО НЕ ТАК? (Даже загружаю все формы - думая, что необходимо что бы они были подгружены при переборе - но...)

Dim frm As Form
For Each frm In Forms
 
For Each CtR In frm.Controls
frm.Show
frm.Hide
 
If TypeOf CtR Is CheckBox Then
SaveSetting 'WarLord', 'NetUtilChecks', CtR.name, CtR.Value
End If
 
Next CtR
Next

Решение задачи: «Задача - перебрать в проекте все контролы CheckBox и сохранить их значения»

textual
                            Листинг программы 
                        
                            if TypeName(aControl) = 'CheckBox' then....