Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result = False Then
		Dim smsPermissions() As String = Array As String(rn.PERMISSION_READ_SMS, rn.PERMISSION_RECEIVE_SMS)
		
		For i = 0 To smsPermissions.Length - 1
			If Permission = smsPermissions(i) Then
				xui.MsgboxAsync("دسترسی به پیامک برای عملکرد برنامه ضروری است.", "توجه")
				Return
			End If
		Next
	End If
End Sub