Android Question Check Subscription Status In App Billing V3

Sub Process_Globals
  Dim manager As BillingManager3
  Private key As String = "MIIBIjAN..."
End Sub

Sub Globals


    Private Button1 As Button
    Private Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("teste")
  If FirstTime Then
      manager.Initialize("manager", key)
      manager.DebugLogging = False
  End If
End Sub

Sub Manager_BillingSupported (Supported As Boolean, Message As String)
  Log(Supported & ", " & Message)
  Log("Subscriptions supported: " & manager.SubscriptionsSupported)
  If Supported Then
          'manager.GetOwnedProducts 'requisita os produtos comprados e dispara o evento com o mesmo nome
  End If
End Sub
Sub Button1_Click
    manager.RequestPayment("myapp_assinatura", "subs", "MyApp assinatura_ok")
    'manager.RequestPayment("android.test.purchased", "inapp", "Infranote_assinatura_ok")
End Sub
Sub Activity_Click
   '1manager.RequestPayment("android.test.purchased", "subs", "extra data")
   'manager.GetOwnedProducts
   'Manager.RequestPayment(Activity, "android.test.purchased", "extra data")
End Sub

Public Sub manager_ProductConsumed (Success As Boolean, Product As Purchase)
        Log("teste")
        Log("===== LOG DO APLICATIVO ==================================================")
        Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
        Log("Product.ItemType = " & Product.ItemType)
        Log("Product.ProductId = " & Product.ProductId)
        Log("Product.PurchaseState = " & Product.PurchaseState)
        Log("Product.PurchaseTime = " & Product.PurchaseTime)
        Log("Product.toString = " & Product.toString)
        Log("==========================================================================")
End Sub
Public Sub manager_PurchaseCompleted (Success As Boolean, Product As Purchase)

    'manager.ConsumeProduct(Product)
    'Return
      Log(Success)
    If Success = True Then
        'Select Product.Productid
            'Case "TestXX"
                'qui inserisco cosa fare nel caso la transazione si andata a buon fine
                ' Faccio andare nella routine esempio sub lancia dove elimino la pubblicità
        Log("===== LOG DO APLICATIVO ==================================================")
        Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
        Log("Product.ItemType = " & Product.ItemType)
        Log("Product.ProductId = " & Product.ProductId)
        Log("Product.PurchaseState = " & Product.PurchaseState)
        Log("Product.PurchaseTime = " & Product.PurchaseTime)
        Log("Product.toString = " & Product.toString)
        Dim r As Reflector
        r.Target = Product
        Dim token As String = r.GetField("mToken")
        Log("Product.Token = " & token)
        Log("==========================================================================")
                ToastMessageShow("PLAY STORE OK Buy ;);)))))!!", False)
        'End Select
    Else

        ToastMessageShow("PLAY STORE Error Buy", False)
        'Product.PurchaseState
        'Log("===== LOG DO APLICATIVO ==================================================")
        'Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
        'Log("Product.ItemType = " & Product.ItemType)
        'Log("Product.ProductId = " & Product.ProductId)
        'Log("Product.PurchaseState = " & Product.PurchaseState)
        'Log("Product.PurchaseTime = " & Product.PurchaseTime)
        'Log("Product.toString = " & Product.toString)
        Log("==========================================================================")
    End If
End Sub

Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
    Log("manager_OwnedProducts Success = " & Success)
    Log("purchases size = " & purchases.Size)
If Success  Then
    For i=0 To purchases.Size-1  
          Log(purchases.GetKeyAt(i)) 'Get name of Product
        Log(purchases.GetValueAt(i)) 'Get State of signature
    Next
End If
End Sub


Sub Button2_Click
    manager.GetOwnedProducts 'requisita os produtos comprados e dispara o evento com o mesmo nome
End Sub