VB配备资源文件里EXE的图标

VB配置资源文件里EXE的图标
下面是一个配置EXE的例子

子程序：
Option Explicit

Private Sub Form_Load()

Dim tmpText() As String
Dim Data() As Byte
ReDim Data(FileLen(App.Path & "" & App.EXEName & ".exe") - 1)
Open App.Path & "" & App.EXEName & ".exe" For Binary Access Read As #1
Get #1, , Data
Close #1
tmpText = Split(StrConv(Data, vbUnicode), vbNewLine)
Text1 = tmpText(UBound(tmpText) - 1)
End Sub

主程序
Private Const FileSize As Long = 20480 '文件的大小

Private Sub Command1_Click()
Dim InfoLen&, MeFile$, I&
Dim ExeByte() As Byte
  MeFile = App.Path & "" & App.EXEName & "_配置后.exe"  '欲生成的文件. 当前目录下
  InfoLen = Len(Text1.Text) 'LenB(StrConv(Text1.Text, vbUnicode))  'Len(Text1.Text)  '欲写入的的数据长度(暂不支持中文、半角字符)
  On Error Resume Next
  Kill MeFile
On Error GoTo ErrHand
  ExeByte = LoadResData(101, "CUSTOM")  '资源文件的数据
  Open MeFile For Binary Access Write As #1
    Put #1, , ExeByte() '将资源文件的数据写到文件...
  Close #1
  Open MeFile For Append As #1
    Print #1, vbCrLf
    Print #1, Text1.Text
  Close #1
  MsgBox "生成完毕! 保存在以下路径" & vbCrLf & MeFile, vbInformation, "提示"
 Exit Sub
ErrHand:
 MsgBox Err.Description, vbCritical, "写入文件发生错误"
End Sub

Private Sub Command2_Click()
 Unload Me
End Sub

如何修改能达到配置资源文件的图标和主文件的图标一样啊

[最优解释]
加载图标资源后再释放
[其他解释]
ding 
[其他解释]
我习惯将资源文件载入ImageList中，再写入相应的地方。
[其他解释]
exe 图标的 ID 是 1，所以必须按照 PE 结构覆盖 ID 为 1 的图标。
[其他解释]
大侠能详细点吗
[其他解释]
PE文件编辑器
[其他解释]
我只是在VB中，修改过。exe图标。。。顶下下吧