Maybe padding the control based on the metadata is the only option. Right now, I am super swamped and too many things on my mind. Below is some sample code to go after the meta data. I will check in later.
Code:
Public Function GetMediaFileLength(ByVal p_FolderPath As String, ByVal p_FileName As String) As String
If p_FolderPath <= "" Or p_FileName <= "" Then
MsgBox "Please provide a folder and a path."
Exit Function
End If
GetMediaFileLength = "No File Found"
Dim objShell As New Shell
Dim objFolder As Folder3
Dim objFile As FolderItem
Set objFolder = objShell.NameSpace(p_FolderPath)
For Each objFile In objFolder.Items
If objFile.Name = p_FileName Then
GetMediaFileLength = objFile.GetDetailsOf(objFile, 27)
'GetMediaFileLength = objFolder.GetDetailsOf(objFile, 27)
End If
Next objFile
End Function