Hi, maybe this help You.
Dim myContact As Contact
Dim map1 As Map
map1.Initialize
Dim list1 As List
list1.Initialize
For i = 0 To Main.listOfContacts.Size - 1 'List of all contactas
myContact = Main.listOfContacts.Get(i)
list1.Add(myContact.DisplayName)
map1.Put(myContact.DisplayName, myContact)
Next
list1.Sort(True)
Done, now You need add elements in clscheklist
For i = 0 To list1.Size - 1
myContact = map1.Get(list1.Get(i))
photo = myContact.GetPhoto
If photo <> Null Then
b1 = photo
Else
b1 = imgDefault
End If
If myContact.phonenumber<>"" Then lst.AddItem(i, False, myContact.phonenumber, myContact.Name,b1)
Next
regards.