Option ExplicitPrivate Sub Command1_Click()
Dim X As Object
For Each X In Form1.Controls
MsgBox X.Name
Next
End Sub
Dim X As Object
For Each X In Form1.Controls
MsgBox X.Name
Next
End Sub
For Each ctlEach In Me.Controls
MsgBox TypeName(ctlEach)
Next