مشکل دریافت مخاطبین

[sajjadrastin 100]

سلام

من کد زیر و تست کردم و حتی کتابخانه fgContact ولی هر دو تاشون فقط نام مخاطب رو بدست میارن و شماره رو مقدار خالی میدن

کد:

Dim co As Contacts
	Dim list1 As List
	list1 = co.GetAll
	For i = 0 To list1.Size -1
		Dim conc As Contact
		conc = list1.Get(i)
		Dim dn As String = conc.DisplayName
		Dim num As String = conc.PhoneNumber
		ToastMessageShow(num,False)
	Next

چیکارش کنم؟

رو 3 تا دیوایس و شبیه ساز با اندروید 4 و 6 امتحان کردم ولی بازم فقط اسم رو میده

دسترسی هم با کتابخونه و ماینفست میگیرم و مشکل نداره

اینم کد کتابخونه:

Dim fgContacts1 As fgContacts
	Dim fgContact1 As fgContact
	Dim list1 As List
	list1.Initialize
	fgContacts1.Initialize
	list1=fgContacts1.GetAllContacts(False,False)
	For i = 0 To list1.Size - 1
		fgContact1=list1.Get(i)
		Msgbox(fgContact1.DisplayName,"")
		Msgbox(fgContact1.PhoneNumber,"")
	Next

ولی هر دو فقط اسم رو میدن و با شماره مشکل دارن

اما کتابخونه کانتکت پیکر درست کار کرد ولی اون برای انتخاب مخاطبین و من من میخام برنامه خودش همه مخاطبین رو لود کنه نه این که کاربر انتخاب کنه

لطا کمک کنید و بگید چیکار کنم؟