Gracias por contestar Heppy, pero traté de bajar el archivo del link que pusiste "Example_TGetContacts.zip" y no me deja por falta de privilegios, no sé por qué.
Esta es mi primera vez que estoy usando b4a, me podrías poner el ejemplo del código completo para poder listar los contactos ?, o si tienes otro link donde pueda ver un ejemplo.
Dim Contacts2 As Contacts2
Dim list1 AsList
List1 = Contacts2.GetAll(True,True)
Dim listOfNames As List
listOfNames.Initialize
For i = 0 To list1.Size - 1
Dim c AsContact
c= list1.Get(i)
If c.DisplayName.IndexOf("@") = -1
contacts2.listOfNames.Add(c.DisplayName)
End If
Next
listOfNames.Sort(True)
For i = 0 To listOfNames.Size - 1
clist.AddSingleLine(listOfNames.Get(i))
log(listOfNames.Get(i))
Next
Si no tienes privilegios para descargar es que no has adquirido el producto B4A, con lo que no podrás utilizar librerias y reduce muchísimo la funcionalidad de este IDE.