循环获取表单上所有控件name方法解决方案

循环获取表单上所有控件name方法
一个表单,比如上面有2个label,2个text,3个command,1个list,如何通过程序方法获取所有表单控件name属性,并将其添加到list1的列表中成为list1的列表项值.急盼回复.我只想到for i=1 to thisform.controlcount....endfor其它呢?不知这种思路对不,其它也不会写了.

[解决办法]
init 事件这么样写

C/C++ code

For i = 1 To this.ControlCount    thisform.list1.AddItem(this.Controls(i).name)Next