>>*-- Fill the list adding the image. >>With ThisForm.lstMembers >> lnPos = 0 >> Scan all >> lnPos = lnPos + 1 >> .AddListItem(Members.Name, Members.iiD, 1) >> .AddListItem(Transform(Members.iiD), Members.iiD, 2) >> .Picture[lnPos] = Iif(Empty(Members.cEmail), "BlankClip.bmp", "PaperClip.bmp") >> EndScan >>EndWith>>