Иконка в заголовке приложения, меню, формы в Excel

Option Explicit
Public Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private objImgList As Object
 
Sub IcoFrm()
Dim hIcon As Long
Dim hWnd As Long
Dim strTemp As String
 
    Set objImgList = CreateObject('MSComctlLib.ImageListCtrl.2')
    With objImgList
        .ImageHeight = 16
        .ImageWidth = 16
        .UseMaskColor = True
        .ListImages.Add , 'ON', LoadPicture('F:Icons108.ico')
        .ListImages.Add , 'TWO', LoadPicture('F:Icons103.ico')
        .ListImages.Add , 'TRY', LoadPicture('F:Icons258.ico')
        
    End With
    hIcon = objImgList.ListImages.Item('ON').ExtractIcon
    hWnd = FindWindow('XLMAIN', strTemp)
    SendMessage hWnd, &H80, 0, ByVal hIcon
    UserForm1.Show False
    hWnd = FindWindow('ThunderDFrame', 'UserForm1')
    hIcon = objImgList.ListImages.Item('TWO').ExtractIcon
    SendMessage hWnd, &H80, 0, ByVal hIcon
    UserForm2.Show False
    hWnd = FindWindow('ThunderDFrame', 'UserForm2')
    hIcon = objImgList.ListImages.Item('TRY').ExtractIcon
    SendMessage hWnd, &H80, 0, ByVal hIcon
    ' а у кнопок есть метод PasteFace - вставка рисунка из буфера
End Sub