如何提取一个exe文件图标，显示到treeview的节点上？

Question

如题，找了1晚上，没有答案 。希望高手帮忙。下面是我找到的疑点资料。提取exe文件图标的。Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Sub Command1_Click()
Dim total As Long, total2
Dim p(50) As Long
Dim i As Integer
Dim ssss = "D:\Game\CS1.5\hl.exe"
If ExtractIcon(App.hInstance, ss, -1) = 0 Then '如果没有图标
MsgBox "No Icon!"
Else
total = ExtractIcon(App.hInstance, ss, -1)
Text1.Text = total
'取得总图标数DrawIcon Picture1.hdc, 34 * i, 0, ExtractIcon(App.hInstance, "D:\Game\CS1.5\hl.exe", 0) '读取每个图标End If
End Sub

Answer 1

看看这个http://www.applevb.com/sourcecode/icond.zip

Answer 2

还是不行。
我又用 ImageList1 先和 treeview棒定。然后用上面的代码 提取出exe图标。结果在写入后，不是没有图片，就是溢出。