Dim Contacts1 As Contacts
Dim listofContacts As List
listofContacts = Contacts1.FindByName("n", False)
For i = 0 To listofContacts.Size - 1
ListView1.AddSingleLine("---------------")
Dim Contact As Contact
Contact = listofContacts.Get(i)
Log(Contact) 'will print the fields to the LogCat
Dim photo As Bitmap
photo = Contact.GetPhoto
If photo <> Null Then Activity.SetBackgroundImage(photo)
Dim Name As String
Name = Contact.Name
ListView1.AddSingleLine(Name)
Dim DisplayName As String = Contact.DisplayName
If DisplayName.Length > 0 Then ListView1.AddSingleLine("DisplayName: " & DisplayName)
[...] the following code is only the read some more data