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