Dim jo As JavaObject = ExoPlaySong
Dim TrackGroups As JavaObject = jo.GetFieldJO("player").RunMethod("getCurrentTrackGroups", Null)
For i = 0 To TrackGroups.GetField("length") - 1
Dim TrackGroup As JavaObject = TrackGroups.RunMethod("get", Array(i))
For j = 0 To TrackGroup.GetField("length") - 1
Dim Format As JavaObject = TrackGroup.RunMethodJO("getFormat", Array(j))
Dim Metadata As JavaObject = Format.GetField("metadata")
If Metadata.IsInitialized Then'will not show you anything
Dim jo As JavaObject= Metadata.RunMethod("get", Array(0))
For k = 0 To Metadata.RunMethod("length", Null) - 1
Dim Entry As JavaObject = Metadata.RunMethod("get", Array(k))
Log("Entry: " & Entry)
Next
End If
Next
Next