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