dim cnt as Contacts
dim cnt2 as Contacts2
Dim x As List
x.Initialize
x= cnt.GetAll
Log(x.Size&"--pcs") '>>> 83pcs
x.Clear
x=cnt2.GetAll(True,False)
Log(x.Size&"--adet") '>>> 198pcs
x.Clear
x=cnt2.GetContactsByQuery("",Null,True,False)'>>> 198 Pcs
Log(x.Size&"--adet")
cu.Initialize ' your contacts utils class
Log(cu.FindAllContacts(True).Size&"--pcs")'>>>0 pcs
Log(cu.FindAllContacts(False).Size&"--pcs")'>>> 141pcs
x.Clear
Dim say As Int=0
For Each c As cuContact In cu.FindAllContacts(False)
x.Clear
x=cu.GetPhones(c.Id)
If x.Size>0 Then
lstContacts.AddSingleLine2(c.DisplayName, c)
say=say+1
End If
Next
Log(say&" adet") ' <<< 109 pcs...Same my contact list