Dim frm = windows.forms.form.activeform If frm IsNot Nothing Then If frm.name = "frmTalker" Then For Each c As object In frm.controls("SplitContainer1").panel2.controls("C1DockingTab2").controls("C1DockingTabPage3").controls("SplitContainer2").panel2.controls output.show(c.name & " " & c.Gettype.name) Next End If End If