'I changed phonetypes to a list since it uses less resources
phoneTypes.Initialize
phoneTypes.Add("custom")
phoneTypes.Add("home")
phoneTypes.Add("mobile")
phoneTypes.Add("work")
phoneTypes.Add("fax_work")
phoneTypes.Add("fax_home")
phoneTypes.Add("pager")
phoneTypes.Add("other")
phoneTypes.Add("callback")
phoneTypes.Add("car")
phoneTypes.Add("company_main")
phoneTypes.Add("isdn")
phoneTypes.Add("main")
phoneTypes.Add("other_fax")
phoneTypes.Add("radio")
phoneTypes.Add("telex")
phoneTypes.Add("tty_tdd")
phoneTypes.Add("work_mobile")
phoneTypes.Add("work_pager")
phoneTypes.Add("assistant")
phoneTypes.Add("mms")
'Returns a List with cuPhone items.
Public Sub GetPhones(id As Long) As List
Dim res As List
res.Initialize
For Each obj() As Object In GetData("vnd.android.cursor.item/phone_v2", Array As String("data1", "data2", "data3"), id, Null)
Dim p As cuPhone
p.Initialize
p.Number = obj(0)
p.PhoneType = phoneTypes.Get(obj(1))
If obj(1) = "0" Then p.PhoneType = obj(2)
res.Add(p)
Next
Return res
End Sub