Vb.net 如何在vb的listview中添加视频缩略图

我正在编写一个简单的windows应用程序，以显示通过ffmpeg分割视频并在listview控件中显示。我可以将视频存储在文件夹中。如何在listview中显示缩略图？任何建议

enter code here
ListView1.Items.Clear()
Dim di As New IO.DirectoryInfo(SPath & "\" & FolderName & "\")
Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
Dim fi As IO.FileInfo
For Each fi In aryFi
''ListView1.Items.Add(fi.FullName)
''ListBox1.Items.Add(fi)
Next

---

添加新的ImageList组件，并将listview的ImageList属性设置为新的ImageList。这里，ImageList被命名为ImageList1。 然后，修改For循环：

For Each fi In aryFi
    Dim ico As Icon = Icon.ExtractAssociatedIcon(fi.FullName)
    ImageList1.Images.Add(ico)
    ListView1.Items.Add(fi.FullName, ImageList1.Images.Count - 1)
    ListBox1.Items.Add(fi)
Next

---

添加新的ImageList组件，并将listview的ImageList属性设置为新的ImageList。这里，ImageList被命名为ImageList1。 然后，修改For循环：

For Each fi In aryFi
    Dim ico As Icon = Icon.ExtractAssociatedIcon(fi.FullName)
    ImageList1.Images.Add(ico)
    ListView1.Items.Add(fi.FullName, ImageList1.Images.Count - 1)
    ListBox1.Items.Add(fi)
Next