Sub Button3_click
Dim Lista As List
Dim fgC As fgContact
Dim fgCs As fgContacts
Lista.Initialize
fgCs.Initialize
Lista=fgCs.GetAllContacts(False,False)
For i=0 To Lista.Size-1
fgC=Lista.Get(i)
Log(fgC.Id&" "&fgC.PhoneNumber&" "&fgC.DisplayName)
Next
End Sub