Hi, Steve!

There is an additional hint to make the code a little bit more compact and prevent from using the slow macro operator using the name substitution instead:

   FOR i = 1 to 14
     lcI = alltrim(str(i))
     STORE IIF( recno()=i, PhoneBMP, NoPhoneBMP ) TO ( ="THIS.ImgPhone"+ m.lcI +".Picture" )
     STORE 14 TO ( "THIS.ImgPhone"+ m.lcI +".Height" )
     STORE 16 TO ( "THIS.ImgPhone"+ m.lcI +".Width" )
   ENDFOR

BTW: The code is not tested yet - there may be typing mistakes <vbg>!