ok...secondo questo listato funziona

For Each c In Me.Controls
If c.ID = "Form1" Then
Dim k As Control
For Each k In c.Controls
id = k.ID '// contiene gli ID dei controlli
Next
End If
Next



koning