Visual Basic - URGENTE Duracion de un avi

Hola mi problema es el siguiente quiero saber la duracion de un fichero avi, wmv, u otros formatos de video sin tener que cargarlo en el control windowsmediaplayer puesto que tarda mucho en cargar los videos y sacar el tiempo que dura. tambien lo he intentado con el control mmc pero no consiguo sacar el tiempo en este control... cuando miras las propiedades de un archivo de video en windows y le das a la pestaña de resumen propiedades avanzadas hay salen todos los datos de los arvhivos pero no se como puedo acceder a esa informacion desde vb, supongo que con alguna api... gracias de antemano

Hola Sandra.
mciMúsica es un mmcontrol.

mciMúsica.Command = "Close"
mciMúsica.FileName = "archivo"
mciMúsica.Command = "Open"
dura2 = "00:00:00"
Dim Segundos As Double
mciMúsica.TimeFormat = mciFormatMilliseconds
Segundos = (CDbl(mciMúsica.Length) \ 1000)
dura1 = HMS(CLng(Segundos))
mciMúsica.Command = "Play"

Saludos.