Public Sub Show (Msg As String)
Dim PromptInfoBuilder As JavaObject
Dim Ev As JavaObject
Dim Prompt As JavaObject
PromptInfoBuilder.InitializeNewInstance("androidx.biometric.BiometricPrompt$PromptInfo$Builder", Null)
PromptInfoBuilder.RunMethod("setTitle", Array(Msg))
PromptInfoBuilder.RunMethod("setNegativeButtonText", Array("Cancel"))
PromptInfoBuilder.RunMethod("setDeviceCredentialAllowed", Array(True))
Ev.InitializeNewInstance(Application.PackageName & ".biometricmanager.BiometricPromptAuthentication", Array(Me))
[B]Quì >> Prompt.InitializeNewInstance("androidx.biometric.BiometricPrompt", Array(ctxt, Executor, Ev))[/B]
Prompt.RunMethod("authenticate", Array(PromptInfoBuilder.RunMethod("build", Null)))
End Sub