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

老师

怎么获取应用程序的图标呢，希望点击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