Список загрузки-просмотр элементов

---

Привет,

Я пытаюсь сделать что-то вроде рабочего стола с помощью элемента управления ListView.

Я не могу заставить этот код работать, который загружает элементы в ListView.

Это

Dim myIcon As System.Drawing.Icon
myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

Это подслушивает, и я не могу заставить это работать.

Dim MyFiles As String


Dim sr2 As StreamReader

sr2 = New StreamReader("files.txt")

MyFiles = sr2.ReadToEnd()




Dim hImgSmall As IntPtr
Dim hImgLarge As IntPtr

Dim shinfo As SHFILEINFO
shinfo = New SHFILEINFO()


ListView1.SmallImageList = ImageList1
ListView1.LargeImageList = ImageList1

shinfo.szDisplayName = New String(Chr(0), 260)
shinfo.szTypeName = New String(Chr(0), 80)




hImgSmall = SHGetFileInfo(MyFiles, 0, shinfo, Marshal.SizeOf(shinfo), _
    SHGFI_ICON Or SHGFI_SMALLICON)


Dim myIcon As System.Drawing.Icon
myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

ImageList1.Images.Add(myIcon)

ListView1.Items.Add(MyFiles, nIndex)

nIndex = nIndex + 1

Что я уже пробовал:

Я пробовал разные пути к файлам

---