Sub Service_Create
...
#if Release
'Log("billmanager Starten")
InitBillmanager
#end if
End Sub
Public Sub InitBillmanager
billmanager.Initialize("billmanager", key)
Wait For billmanager_BillingSupported (Supported As Boolean, Message As String)
IsBillingSupported = Supported
If Supported Then
CallSubDelayed (Main, "GetOwnedProducts")
End If
End Sub