Public Sub GetAllProductPrice
'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(Product_1year, Product_1month, Product_6month))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetailsList As List)
If Result.IsSuccess And SkuDetailsList.Size > 0 Then
Dim mp As Map
mp.Initialize
For Each Sku As SkuDetails In SkuDetailsList
mp.Put(Sku.Sku, Sku.Price)
Log("SKU-Preis= " & Sku.Price)
Next
CallSub2(Main, "ShowInAppBilling", mp)
End If
Else
ToastMessageShow(Starter.language.value("strInAppBillingError"),True)
End If
End Sub