Private Sub Command1_Click()
Dim vControl As Variant
' Bei diesem Beispiel werden alle Controls einer Form aufgelistet
' und die Namen der Controls im Debug-Fenster ausgegeben
' Das Schlüsselwort Me ist eine Referenz auf die Form, in der der Code 
' ausgeführt wird
 
For Each vControl In Form1.Controls   ' .Controls
  Debug.Print vControl.Name ' Ausgabe des Namens
Next ' vControl das nächste Element der Auflistung zuweisen
 
End Sub