For i = 0 To listOfContacts.Size - 1
Dim Contact As Contact
Contact = listOfContacts.Get(i)
Dim photo As Bitmap
photo = Contact.GetPhoto
If photo <> Null Then
Log(photo.Height)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirAssets, "photo.jpg", False)
photo.WriteToStream(Out, 80, "JPEG")