Android Question Failed to get the path of a video thumbnail using a MediaStore query with SDKVersion >= 30

Sub GetBitmapsOfVideoThumbnails

    Dim MediaStore As JavaObject
    Dim uri As Object
    Dim MediaStore_Video_Thumbnails As JavaObject
    
    MediaStore.InitializeStatic("android.provider.MediaStore.Video$Media")
    uri = MediaStore.GetField("EXTERNAL_CONTENT_URI")        'content://media/external/video/media fo videos

    MediaStore_Video_Thumbnails.InitializeStatic("android.provider.MediaStore.Video.Thumbnails")


    Dim cr As ContentResolver        'ContentResolver library
    cr.Initialize("cr")
    
    Dim thumbCursor As Cursor    'SQL lib
    thumbCursor = cr.Query(uri, Null, "mime_type LIKE 'video/%'", Null, Null)            'LIMIT not work on android 11+
    
    Log("thumbCursor.RowCount = " & thumbCursor.RowCount)
    
    If thumbCursor <> Null And thumbCursor.RowCount > 0 Then

        For i = 0 To thumbCursor.RowCount - 1
            thumbCursor.Position = i
            
            Private imageId As Long = thumbCursor.GetString("_id")
            Log(imageId)
'            Log(uri & "/" & imageId)
            Log(thumbCursor.GetString("_data"))


            Dim r As Reflector
            Dim cres As Object
            r.Target = r.GetContext
            cres = r.RunMethod("getContentResolver")
            
            Try
                Private bm As Bitmap = MediaStore_Video_Thumbnails.RunMethod("getThumbnail", Array As Object(cres, imageId, 3, Null))    '3 = MICRO_KIND
                Log(bm.Width & " x " & bm.Height)
            Catch
                Log(LastException)
            End Try
        Next
    End If
End Sub

Sub btnSearch_Click   
    GetBitmapsOfVideoThumbnails
End Sub

Dim SizeObj As JavaObject
Dim size As JavaObject = SizeObj.InitializeNewInstance("android.util.Size", Array As Object(96, 96))
Log(size)

Dim uri2 As JavaObject
Dim u As JavaObject = uri2.InitializeStatic("android.net.Uri").RunMethod("parse", Array As String(uri & "/" & imageId))
LogColor(u, Colors.Magenta)
            
Dim csign As JavaObject
Dim cs As JavaObject = csign.InitializeNewInstance("android.os.CancellationSignal", Null)
Log(cs)

Dim ctxt As JavaObject
Dim ContentResolver As JavaObject = ctxt.InitializeContext.RunMethodJO("getContentResolver", Null)

Dim Thumbnail As Bitmap
Thumbnail = ContentResolver.RunMethod("loadThumbnail", Array(u, size, csign))
Log(Thumbnail.Width & " xx " & Thumbnail.Height)