[tincho]

Antes de nada, Feliz año !!
Este año voy a intentar ordenar la música, como tantos otros años  así que instale el programa EasyTAG pero, par ami sorpresa no funciona con los archivos ogg vorbis cuando debería hacerlo, así que antes de inventar la rueda hice un intento con MetaEdit pero me tira un error en el módulo ShowTags()
Te paso algo de feedback por si te resulta útil.

GAMBAS

Private Sub ShowTags()
  Dim n As Integer
  Dim aline As String[]
  Dim ar As String[]
  ar = $Track["Metadata"]
  For n = 0 To ar.max
    aline = Split(ar[n], ":")
    If aline[1] > "" Then
      showTag(aline)
    Endif
  Next
End

El problema se presenta cuando en el bucle se intenta separar con Split en el carácter ":" pero este no existe EL texto es el siguiente "[0m" y lo corregí así:

GAMBAS

Private Sub ShowTags()
  Dim n As Integer
  Dim aline As String[]
  Dim ar As String[]
  ar = $Track["Metadata"]
  For n = 0 To ar.max
    If InStr(ar[n], ":") Then
      aline = Split(ar[n], ":")
      If aline[1] > "" Then
        showTag(aline)
      Endif
    Endif
  Next
End

El botón tbSavePicture intenta poner la imagen incrustada en un archivo que se llama como el archivo de música, cuando creo que lo que debe suceder es que sa algo como "cover.jpg"
Nuevamente gracias por compartir el programa.