Private Sub ShowInAppMessages
Wait For (billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
Dim client As JavaObject = billing.As(JavaObject).GetField("client")
Dim ParamsBuilder As JavaObject
ParamsBuilder.InitializeNewInstance("com.android.billingclient.api.InAppMessageParams$Builder", Null)
ParamsBuilder.RunMethod("addAllInAppMessageCategoriesToShow", Null)
Dim Params As JavaObject = ParamsBuilder.RunMethod("build", Null)
Dim Listener As Object = client.CreateEventFromUI("com.android.billingclient.api.InAppMessageResponseListener", _
"InAppMessage", Null)
Dim ctxt As JavaObject
ctxt.InitializeContext
client.RunMethod("showInAppMessages", Array(ctxt, Params, Listener))
Wait For InAppMessage_Event (MethodName As String, Args() As Object)
Log(MethodName)
Dim Result2 As JavaObject = Args(0)
Dim ResponseCode As Int = Result2.RunMethod("getResponseCode", Null)
'https://developer.android.com/reference/com/android/billingclient/api/InAppMessageResult.InAppMessageResponseCode
If ResponseCode = 0 Then
Log("No Action needed")
Else
Log("Subscription status updated")
End If
End Sub