Android Question [SOLVED] New alternative to com.android.vending.INSTALL_REFERRER

AddPermission(com.google.android.finsky.permission.BIND_GET_INSTALL_REFERRER_SERVICE)

#AdditionalJar: installreferrer-1.0.aar
Sub Process_Globals
   Private InstallReferrerClient As JavaObject
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
     Dim context As JavaObject
     context.InitializeContext
     InstallReferrerClient.InitializeStatic("com.android.installreferrer.api.InstallReferrerClient")
     InstallReferrerClient = InstallReferrerClient.RunMethodJO("newBuilder", Array(context)).RunMethod("build", Null)
     Dim listener As Object = InstallReferrerClient.CreateEventFromUI("com.android.installreferrer.api.InstallReferrerStateListener", "listener", Null)
     InstallReferrerClient.RunMethod("startConnection", Array(listener))
   End If
End Sub

Sub Listener_Event (MethodName As String, Args() As Object) As Object
   If MethodName = "onInstallReferrerSetupFinished" Then
     Dim status As Int = Args(0)
     Select status
       Case 3
         Log("developer error")
       Case 2
         Log("feature not supported")
       Case 0
         Log("OK!")
         Dim ReferrerDetails As JavaObject = InstallReferrerClient.RunMethod("getInstallReferrer", Null)
         Log(ReferrerDetails.RunMethod("getInstallBeginTimestampSeconds", Null))
         Log(ReferrerDetails.RunMethod("getInstallReferrer", Null))
         Log(ReferrerDetails.RunMethod("getReferrerClickTimestampSeconds", Null))
       Case Else
         Log("Not available")
     End Select
   End If
   Return Null
End Sub