Declare Function GetActiveWindow32 Lib "USER32" Alias _\n"GetActiveWindow" () As Integer\n\nDeclare Function SendMessage32 Lib "USER32" Alias _\n"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _\n   ByVal wParam As Long, ByVal lParam As Long) As Long\n\nDeclare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _\n"ExtractIconA" (ByVal hInst As Long, _\n   ByVal lpszExeFileName As String, _\n    ByVal nIconIndex As Long) As Long\n\nSub ChangeXLIcon()\n    Dim h32NewIcon As Long\n    Dim h32WndXLMAIN As Long\n    h32NewIcon = ExtractIcon32( 0 , "Notepad.exe",  0 )\n    h32WndXLMAIN = GetActiveWindow32()\n    SendMessage32 h32WndXLMAIN, &H80,  1 , h32NewIcon \'Icon big\n    SendMessage32 h32WndXLMAIN, &H80,  0 , h32NewIcon \'Icon small\nEnd Sub