ResHacker.exe -addoverwrite Control5.exe, Control5.exe, Icon32\TEST1.ico , ICONGROUP, 101 , 1049 
ResHacker.exe -addoverwrite Control5.exe, Control5.exe, Icon32\TEST2.ico , ICONGROUP, 102 , 1049 
ResHacker.exe -addoverwrite Control5.exe, Control5.exe, Icon32\TEST3.ico , ICONGROUP, 103 , 1049 
ResHacker.exe -addoverwrite Control5.exe, Control5.exe, Icon32\TEST4.ico , ICONGROUP, 104 , 1049 

LoadResPicture( 101 , vbResIcon)
'по номеру ID
LoadResPicture("MyIconName", vbResIcon)
'т.е. по имени ресурса

        lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE( 101 ), IMAGE_ICON,  16 ,  16 , LR_DEFAULTCOLOR)

        lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE("MyIconName"), IMAGE_ICON,  16 ,  16 , LR_DEFAULTCOLOR)

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst _
  As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth _
  As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long

Dim lngIcon As Long
lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE( 1111 ), IMAGE_ICON,  16 ,  16 , LR_DEFAULTCOLOR)  'App.hInstance
  m_hIml = ImageList_Create( 16 ,  16 , ILC_MASK Or ILC_COLOR32,  3 ,  0 )
  ImageList_ReplaceIcon m_hIml, - 1 , lngIcon
  ImageList_ReplaceIcon m_hIml, - 1 , lngIcon
  ImageList_ReplaceIcon m_hIml, - 1 , lngIcon
...
Public Function MAKEINTRESOURCE(ByVal lID As Long) As String
    MAKEINTRESOURCE = "#" & CStr(MAKELONG(lID,  0 ))
End Function

Public Function LOWORD(ByVal dwValue As Long) As Long
    Call CopyMemory(LOWORD, dwValue,  2 )
End Function

Public Function MAKELONG(ByVal wLow As Long, ByVal wHi As Long) As Long
    If (wHi And &H8000&) Then
        MAKELONG = (((wHi And &H7FFF&) *  65536 ) Or (wLow And &HFFFF&)) Or &H80000000
    Else
        MAKELONG = LOWORD(wLow) Or (&H10000 * LOWORD(wHi))
    End If
End Function