[AC-2007] Remplir un ImageList avec un GIF multipages

[Filou07]

Bonjour,

A l'ouverture de mon formulaire sous Access2007, je voudrais remplir mon contrôle imagelist à partir d'un GIF multipages ou d'un DLL comportant plusieurs images.

Je suis tombé sur l'API ExtractIcon qui semble séduisante mais je n'arrive pas à la mettre en place. Les différents exemples que j'ai vus sont en VB.

La procédure que j'utilise me renvoie un type mismatch sur le Set X=...

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
27
28
29
30
31
32
 
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" ( _
        ByVal hInst As Long, _
        ByVal lpszExeFileName As String, _
        ByVal nIconIndex As Long) As Long
 
Private Declare Function DrawIcon Lib "user32.dll" ( _
        ByVal hDC As Long, _
        ByVal X As Long, _
        ByVal Y As Long, _
        ByVal hIcon As Long) As Boolean
 
Private Declare Function DestroyIcon Lib "user32.dll" ( _
        ByVal hIcon As Long) As Boolean
 
 
Private Sub Form_Load()
    Static lngRefresh As Long
    Dim Index As Integer
    Dim hIcon As Long
    Dim b As Boolean
    Dim Path As String
    Path = CurrentProject.Path & "\" & "find.ico"
 
    hIcon = ExtractIcon(Me.hwnd, Path, Index)
 
    While hIcon <> 0
        Set X = Me.ImageList2.ListImages.Add(, , hIcon)
        Index = Index + 1
        b = DestroyIcon(hIcon)
    Wend
End Sub

Suis-je sur la bonne voie ?