icones de l'application

Bonjour,
J'ai longtemps travaillé en DAO et j'ajoutais des icones personnalisées à toutes mes fenêtres avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function ChangeIconeAccess(NouvIcone As String, Optional frm As String) As Boolean
 
    'Objectif: Mettre une icône personnalisée dans la barre titre l'application ou dans celle d'un formulaire
    'Le fichier contenant cette icône est stocké dans le même répertoire que l'application .mdb
 
    Dim hIcon As Long
    Dim hwnd As Long
    Dim CheminIcone As String
 
    CheminIcone = s_cheminBaseSilo & NouvIcone
 
       If frm = "" Then
          hwnd = Application.hWndAccessApp
       Else
          hwnd = Forms(frm).hwnd
       End If
       hIcon = LoadImage(0&, CheminIcone, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
       ' Argument wParam de l'API SendMessage: si 0 = icône de taille réduite. si 1 = icône de grande taille
       If hIcon <> 0 Then
          Call SendMessage(hwnd, WM_SETICON, 1, ByVal hIcon)
          ChangeIconeAccess = True
       End If
 
End Function
 
'Exemple :     Call ChangeIconeAccess("Nci.ico", Me.Name)

Aujourd'hui je migre mes applis en ADO et cette fonction ne marche plus apparemment. Y a t'il une solution ?
Merci
PS : Le code s'est mis en rouge, je ne sais pas pourquoi !