Wait For (billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
If Result.IsSuccess Then
Dim sf As Object = billing.QuerySkuDetails("inapp", Array("__myid__"))
Wait For (sf) Billing_SkuQueryCompleted (Result As BillingResult, SkuDetails As List)
Log("List size: " & SkuDetails.Size)
If Result.IsSuccess And SkuDetails.Size = 1 Then
Dim sku As SkuDetails = SkuDetails.Get(0)
Log(sku.Title)
End If
End If