如何穷举一个Form中的所有控件，望不惜赐教！

Question

我希望一个窗体中的所有控件，但我不知道如何穷举一个Form中的所有控件，望不惜赐教！

Answer 1

Private Sub Form_Activate()
    Dim a As Control
    For Each a In Me.Controls
        Print a.Name
    Next
End Sub

Answer 2

Private Sub Command1_Click()
'对象数组ControlArray为所求
Dim i As Integer, ControlArray() As Control, j As Integer
i = Me.Count
j = 0
ReDim Preserve ControlArray(1 To i) As Control
Dim a As Control
    For Each a In Me.Controls
        j = j + 1
        Set ControlArray(j) = a
        Print ControlArray(j).Name
    Next
 Print j
End Sub

Answer 3

Me.Controls.count
Me.Controls(i).name

Answer 4

For Each ctl In Me.Controls
   .....
Next ------------------------------------------------------------------
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------

Answer 5

for each ?? 
楼上的都写了
我就next吧。

Answer 6

For Each ctl In Me.Controls
   .....
Next ------------------------------------------------------------------
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------
不愧是灌水高兴,有上面写的有什么区别..?也没有新的东西...也好意思贴出来..晕呀..这个网站的人真是...