Purtroppo con il codice che mi hai dato si possono trattare solamente gli MP3 perchè agisce direttamente sulla struttura del file. Per fare una cosa analoga per i video dovresti conoscere la struttura dati di ogni file che vuoi analizzare e di conseguenza crearci una funzione.

Di seguito ti posto il codice per utilizzare DirectShow, prova a vedere se funziona e se non è troppo pesante per quello che devi fare.
Ti ricordo che devi aggiungere la libreria ActiveMovie al tuo progetto dal menu References.

codice:
'in un modulo BAS
Public DSVideo As IBasicVideo2
Public DSControl As IMediaControl

Public Width,Height As Integer

Sub GetMovieRes(ByVal FileName As String)

Set DSControl = New FilgraphManager  'crea il controllo
DSControl.RenderFile (FileName)  'carica il file

Set DSVideo = DSControl
DSVideo.GetPreferredAspectRatio Width, Height

Set DSVideo = Nothing
Set DSControl = Nothing

end function