3rd parameter should be HICON rather than DWORD
'Declare Function StatusBar_SetIcon (ByVal hStatusBar As HWnd, ByVal nPart As Long, ByVal hIcon As DWORD) As BOOLEAN
Declare Function StatusBar_SetIcon (ByVal hStatusBar As HWnd, ByVal nPart As Long, ByVal hIcon As HICON) As BOOLEAN
'PRIVATE FUNCTION StatusBar_SetIcon (BYVAL hStatusBar AS HWND, BYVAL nPart AS LONG, BYVAL hIcon AS DWORD) AS BOOLEAN
Private Function StatusBar_SetIcon (ByVal hStatusBar As HWnd, ByVal nPart As Long, ByVal hIcon As HICON) As BOOLEAN
Thanks, Paul. I have updated the file.