Private Sub B4XPage_Created (Root1 As B4XView)
...
Dim ok As Boolean = False
Dim rp As RuntimePermissions
Do While Not(ok)
rp.CheckAndRequest(rp.PERMISSION_RECORD_AUDIO)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Not(Result) Then
Msgbox2Async("Devi acconsentire per poter fare il test", "Consenti l'accesso", "Ok", "", "", Null, False)
Wait For Msgbox_Result (ResultMsg As Int)
Else
ok = True
End If
Loop
'Obj_speech.Initialize(Me, "Event_obj_speech", 0, 0) '<----- Tried also like so
Obj_speech.Initialize(B4XPages.GetNativeParent(Me), "Event_obj_speech", 0, 0) '<-------------------------- HERE
End Sub