lcControl = _screen.activeform.activecontrol.name loControl = _screen.activeform.activecontrol do while not compobj(loControl, _screen.activeform) loControl = loControl.Parent lcControl = loCOntrol.Name + '.' + lcControl enddo ?lcControlYou can replace the form name with _screen.activeform if you want, but I don't see how good it is, you still have an object reference.