Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
Log(" BillingManager_PurchaseCompleted Success==> "&Success)
Log(" BillingManager_PurchaseCompleted Product==> "&Product)
If Success=True Then
If Product.DeveloperPayload = CodeModule.inapp_DeveloperPayLoad Then
CodeModule.special_Toast("Thank you for your purchase")
CodeModule.AriaSharedPreferences_1.SaveBoolean("purchase_completed",True)
End If
Else
CodeModule.special_Toast("In-app payment error")
End If
End Sub