Sub Globals
Dim id As Int
Dim Contacts1 As Contacts
Dim lvPersons As ListView
Dim myContact As Contact
Dim listOfContacts As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
lvPersons.Initialize("")
Activity.AddView(lvPersons,0%x,0%y,100%x,100%y) 'don't confuse %x and %y
lvPersons.Clear
listOfContacts = Contacts1.GetAll
Dim map1 As Map
map1.Initialize
Dim list1 As List
list1.Initialize
For i = 0 To listOfContacts.Size - 1
myContact = listOfContacts.Get(i)
list1.Add(myContact.DisplayName)
map1.Put(myContact.DisplayName, myContact)
Next
list1.Sort(True)
For i = 0 To list1.Size - 1
myContact = map1.Get(list1.Get(i))
lvPersons.AddTwoLines2(myContact.DisplayName,myContact.PhoneNumber,myContact.id)
Next
End Sub