Получить размер видеокадра не загружая сам файл

 Result = objFolder.GetDetailsOf(objFolderItem, 316) & " x " & objFolder.GetDetailsOf(objFolderItem, 314)

 Result = objFolder.GetDetailsOf(objFolderItem, 316) & " x " & objFolder.GetDetailsOf(objFolderItem, 314)

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using OFD As New OpenFileDialog
            If OFD.ShowDialog = DialogResult.OK Then
                ListBox1.Items.Clear()
                ListBox1.Items.AddRange(GetVideoResolution(OFD.FileName, 1000))
            End If
        End Using
    End Sub
 
    Public Function GetVideoResolution(FileName As String, MaxIndex As Integer) As String()
        On Error Resume Next
 
        Dim Result As New List(Of String)
        Dim objShell = CreateObject("shell.application")
        Dim objFolder = objShell.[NameSpace](IO.Path.GetDirectoryName(FileName))
        Dim objFolderItem = objFolder.ParseName(IO.Path.GetFileName(FileName))
 
        For i = 0 To MaxIndex
            Result.Add(i & " = " & objFolder.GetDetailsOf(objFolderItem, i))
        Next
 
        objShell = Nothing : objFolder = Nothing : GC.Collect()
 
        Return Result.Cast(Of String).ToArray
    End Function
 
End Class