参考代码
Dim tab As WinForm.TabControl '= e.form.controls("TabControl1")For Each p As WinForm.TabPage In tab.tabpages For Each c As object In p.Children msgbox(c.name) NextNext