Sub button1_click
rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
Wait For Activity_PermissionResult(permission As String,result As Boolean)
If result Then
Dim result2 As Int
result2 = Msgbox2("Dog In The Lane", "Do you wish to dial the number ?", "Yes", "", "No", Null)
If result2 = DialogResponse.Positive Then
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "tel:01939210000") 'dummy number but I use the xorrect number in the app
StartActivity(i)
'Dim p As PhoneCalls
'StartActivity(p.Call("01939210000")) 'dummy number
End If
End If
End Sub