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
On Error Resume Next
For Each vControl In Form1.Controls   ' .Controls
vControl.Picture = LoadPicture(vbNullString) 'alle Bilder aus PictureBoxen 
' löschen
Next ' vControl das nächste Element der Auflistung zuweisen