主题：[求助]获取应用程序图标

老师

怎么获取应用程序的图标呢，希望点击OK的时候，btn的图标变化为选定的图片。

Dim btn As WinForm.Button = e.Form.Controls("Button2")
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "应用程序|*.exe" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim str As String=dlg.FileName.SubString(dlg.FileName.Length-3)
    Select Case str
        Case "exe"
                        btn.Image=GetImage(dlg.FileName.SubString(0,dlg.FileName.Length-3) & ".ico")’不会是这块去查找整个文件夹，查名字+.jpg或.bmp什么
    End Select
End If

你问过啊

Dim p As WinForm.Panel = e.Form.Controls("panel1")
Dim icon As Icon = System.Drawing.Icon.ExtractAssociatedIcon(ApplicationPath & "foxtable.exe")
p.BaseControl.BackgroundImage = icon.ToBitmap()
p.BaseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108778&skin=0