Private Const ICON_BIG = 1 Private Const ICON_SMALL = 0 Private Const WM_SETICON = &H80 Private 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 ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Public Sub SetWindowIcon(hWnd As Long) Dim hIcon As Long hIcon = ExtractIcon(App.hInstance, App.EXEName & ".exe", 0) SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon End Sub