x=Amembers(frmMembers, This, 2) For y=1 To x lcSource = frmMembers(y) lcObjects = lcObjects + lcSource If Type("This." + lcSource + ".ControlSource") <> "U" Then lcObjects = lcObjects + ": " + Eval("This." + lcSource + ".ControlSource") Endif lcObjects = lcObjects + CRLF NextAlthough if you have container objects like grids you might have to drill down several levels deep to get at every controlsource property. HTH