AddPermission(android.permission.READ_CONTACTS)

Sub Globals
Dim contact As ContactPicker
Private EditText1 As EditText
Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
contact.Initialize(Me)
End Sub

Sub Button1_Click
contact.ShowContactPicker
End Sub

Sub ContactSelected(Value As ContactItem)
Try
EditText1.Text = Value.Name
Dim stx2() As String
stx2=Regex.Split("Number=",Value.PhoneNumber.Get(0))
Dim stx3() As String
stx3=Regex.Split(",",stx2(1))
stx3(0)=stx3(0).Replace("+980","0").Replace("00980","0").Replace(" ","").Replace("-","").Replace("/","").Replace("\","").Replace("_","").Replace(",","").Replace(".","").Replace("+98","0").Replace("0098","0").Replace("(","").Replace(")","")
EditText2.Text=stx3(0)
Catch
ToastMessageShow("این مخاطب قابل انتخاب نیست",True)
End Try
End Sub