lSKU_inapp.Initialize
lSKU_inapp.Add("pro.gpbtest2") ' status Inactive in GP Console
lSKU_inapp.Add("pro.gpbtest3")
'make sure that the store service is connected
Wait For (billing.ConnectIfNeeded) billing_Connected (Result As BillingResult)
'get the sku details
If Result.IsSuccess Then
Dim sf As Object = billing.QuerySkuDetails("inapp", lSKU_inapp)
Wait For (sf) Billing_SkuQueryCompleted (Result2 As BillingResult, SkuDetails As List)
If Result2.IsSuccess And SkuDetails.Size > 0 Then
For i = 0 To SkuDetails.Size - 1
...