Private Sub getAvailableProducts
wait for (Starter.Billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
If Result.IsSuccess Then
Dim sf As Object = Starter.billing.QuerySkuDetails("inapp", Array("c.test.product_1", "c.test.product_2", "nc.test.product_1", "nc.test.product_2"))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)
If Result.IsSuccess And SkuDetails.Size <> 0 Then
Log(SkuDetails.Get(0))
End If
End If
End Sub