dim obj as object
for each obj in me.controls
    if typename(obj)="PictureBox" then msgbox obj.name
next