// load file and look for cover art

Var file As FolderItem = SpecialFolder.Desktop.Child("test.m4a")
Var a As AVURLAssetMBS = AVURLAssetMBS.URLAssetWithFile(file)

Var iTunesMetadataKeyCoverArtString As String = AVFoundationMBS.AVMetadataiTunesMetadataKeyCoverArt
Var iTunesMetadataKeyCoverArtNumber As Integer = OSTypeFromStringMBS(iTunesMetadataKeyCoverArtString)

Var items() As AVMetadataItemMBS = a.metadata

For Each item As AVMetadataItemMBS In items
  
  Var key As Variant = item.key
  Var Val As Variant = item.value
  
  If key.IntegerValue = iTunesMetadataKeyCoverArtNumber Or key.StringValue = iTunesMetadataKeyCoverArtString Then
    
    Var v As MemoryBlock = Val
    window1.Backdrop = picture.FromData(v)
  End If
  
Next