bug:在windows xp下用ImageList_GetImageCount傳回值不正確(VB)

環境:XP sp2 ,vb6 (未打sp6補丁)
測試:
建立一個工程,在表單上加一個ImageList控制項(預先為控制項加入幾個表徵圖),然後在表單上加一個按鈕,添加如下代碼:
Private Declare Function ImageList_GetImageCount Lib "comctl32" ( _
ByVal himl As Long) As Long
Private Sub Command1_Click()
dim  j  as  long
j = ImageList_GetImageCount( ImageList1.HIMAGELIST)
debug.print j
End Sub

不管ImageList1裡有幾個表徵圖,發現ImageList_GetImageCount的傳回值總為0

解決辦法:
ImageList的ImageCount的值存放在.HIMAGELIST位移4位元組處,用copymemory取出即可:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim j As Long
CopyMemory i, ByVal Me.ImageList1.HIMAGELIST + 4, 4
Debug.Print j

End Sub