PurchaseHelper.Initialize(Me,"PurchaseHelper",m_API_KEY)
PurchaseHelper.ProductIndentififer = Array As String("Mesi12") 'The Product identifyer
Wait For (PurchaseHelper.CheckPurchases) complete (Success As Boolean)
If Main.HasPremium=True Then
Wait For (PurchaseHelper.GetProductsInformation(PurchaseHelper.ProductIndentififer)) complete (lstPurchases As List)
For Each ProductInfo As ProductInformation In lstPurchases
hd.ToastMessageShow(ProductInfo.Title & " - " & ProductInfo.LocalizedPrice,ProductInfo.ProductIdentifier)
Next
end if