Sub Player_MetaData(metadataFields As Map)
' Log(metadataFields)
If metadataFields.ContainsKey("Title") Then
' Log(metadataFields.Get("Title"))
End If
If metadataFields.ContainsKey("RecordingYear") Then
' Log(metadataFields.Get("RecordingYear"))
End If
' Handle the metadata fields here
If metadataFields.ContainsKey("ArtworkData") Then
' Log("Contains ArtworkData!!!!!!!!!!!!")
' Dim artworkData() As Byte = metadataFields.Get("ArtworkData")
' Create an InputStream from the byte array
' Dim inp As InputStream
' inp.InitializeFromBytesArray(artworkData, 0, artworkData.Length)
' Create a Bitmap from the InputStream
' Dim bitmap As Bitmap
' bitmap.Initialize2(inp)
' ImageView1.Bitmap = bitmap
' ImageView1.Visible = True
End If
Player.GetVideoTextLanguages2 'put here just like the ado example
End Sub