难度较高！如何在运行时得知一个窗体中都有哪些控件，并返回它们的名字呀？

Question

Dim obj As Object
For Each obj In Me.Controls
   MsgBox obj.Name
Next

Answer 1

Dim xx As Control
For Each xx In Form1.Controls
  List1.AddItem xx.Name
Next

Answer 2

'还可以判断控件数组
Private Sub Command1_Click()
Dim x As VB.Control
For Each x In Me.Controls
    If VBA.VarType(VBA.CallByName(Me, x.Name, VbGet)) = vbObject Then       '控件数组
       Debug.Print x.Name & ".Item(" & x.Index & ")"
    Else
       Debug.Print x.Name
    End If
Next x
End Sub

Answer 3

Dim obj As Object
For Each obj In Me.Controls
   MsgBox obj.Name
Next
比较简单