Sub btnRemoveAds_Click
'make sure that the store service is connected
Wait For (billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
If Result.IsSuccess Then
'get the sku details
Dim sf As Object = billing.QuerySkuDetails("inapp", Array(ADS_SDK_ID))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)
'If Result.IsSuccess And SkuDetails.Size = 1 Then
' Result = billing.LaunchBillingFlow(SkuDetails.Get(0))
' If Result.IsSuccess Then Return
'End If
If Result.IsSuccess Then
If SkuDetails.Size > 0 Then
Result = billing.LaunchBillingFlow(SkuDetails.Get(0))
If Result.IsSuccess Then Return
Else
ToastMessageShow("Error SKU not found", True)
Return
End If
End If
End If
ToastMessageShow("Error starting billing process", True)
End Sub