>*-- 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 >>Bye!