1:
2:
3:

Handle = BeginUpdateResource("C:\windows\desktop\test.exe", false)
Call UpdateResource(Handle, 3, "icon", 7, "blabla", 6)
Call EndUpdateResource(Handle, False)

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Private Declare Function UpdateResource Lib "kernel32.dll" Alias "UpdateResourceA" _
 (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, _
 ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) _
 As Long
 
Private Declare Function BeginUpdateResource Lib "kernel32.dll" Alias "BeginUpdateResourceA" _
 (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) _
 As Long
 
Private Declare Function EndUpdateResource Lib "kernel32.dll" Alias "EndUpdateResourceA" _
 (ByVal hUpdate As Long, ByVal fDiscard As Long) _
 As Long