Sub buy_sku(sku As String)
Wait For (Starter.billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
If Result.IsSuccess Then
Dim sf As Object = Starter.billing.QuerySkuDetails("inapp", Array(sku))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)
If Result.IsSuccess And SkuDetails.Size = 1 Then
Result = Starter.billing.LaunchBillingFlow(SkuDetails.Get(0))
If Result.IsSuccess Then Return
End If
End If
ToastMessageShow("Error starting billing process", True)
End Sub