Private Sub billmanager_BillingSupported (Supported As Boolean, Message As String)
'Log(Supported & ", " & Message)
'Log("Subscriptions supported: " & billmanager.SubscriptionsSupported)
IsBillingSupported = Supported
If Supported Then
CallSubDelayed (Main, "GetOwnedProducts")
End If
End Sub