DrawIconEx weirdness under Win2K

I use DrawIconEx to draw an icon onto a metafile DC.
Everything works ok under WinXP but under Win2K I get a black square.

What am I doing wrong?

Code below is a simplified version of what I'm using (needs to be pasted in
Form1 of a standard project and needs an icon in Form_Load).

TIA,
Andy

' CODE ***************

Option Explicit

Private Const DI_MASK As Long = &H1& ' Draws the icon or
cursor using the mask.
Private Const DI_IMAGE As Long = &H2& ' Draws the icon or
cursor using the image.
Private Const DI_NORMAL As Long = DI_MASK Or DI_IMAGE ' Combination of
DI_IMAGE and DI_MASK.
Private Type ICONINFO
fIcon As Long
xHotspot As Long
yHotspot As Long
hbmMask As Long
hbmColor As Long
End Type
Private Declare Function GetIconInfo Lib "user32.dll" (ByVal hIcon As Long,
ByRef piconinfo As ICONINFO) As Long
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hdc As Long,
ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth
As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal
hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As
Long) As Long
Private Declare Function GetObjectType Lib "gdi32.dll" (ByVal hgdiobj As
Long) As Long
Private Const OBJ_ENHMETAFILE As Long = 13
Private Const OBJ_BITMAP As Long = 7
Private Const OBJ_METAFILE As Long = 9

' Map mode
Private Const MM_LOMETRIC As Long = 2
Private Declare Function SetMapMode Lib "gdi32.dll" (ByVal hdc As Long,
ByVal nMapMode As Long) As Long

' Metafile
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As
Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateEnhMetaFile Lib "gdi32.dll" Alias
"CreateEnhMetaFileA" (ByVal hDCref As Long, ByVal lpFileName As String,
ByRef lpRect As RECT, ByVal lpDescription As String) As Long
Private Declare Function PlayEnhMetaFile Lib "gdi32.dll" (ByVal hdc As Long,
ByVal hEmf As Long, ByRef lpRect As RECT) As Long
Private Declare Function CloseEnhMetaFile Lib "gdi32.dll" (ByVal hdc As
Long) As Long
Private Declare Function DeleteEnhMetaFile Lib "gdi32.dll" (ByVal hEmf As
Long) As Long

Private m_objIcon As StdPicture

Private Sub Form_Load()
' Load icon from resource...
Set m_objIcon = LoadResPicture(101, vbResIcon)
' ... or from a file
' Set m_objIcon = LoadPicture("C:\Path\icon.ico")

' Set up form
Me.ScaleMode = vbMillimeters
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Dim ifT As ICONINFO
Dim lOldMapMode As Long
Dim lDC As Long
Dim hMeta As Long
Dim rc As RECT

' Make sure picture is an Icon
If CBool(GetIconInfo(m_objIcon.Handle, ifT)) Then

' Clean up
With ifT
DeleteObject .hbmMask
DeleteObject .hbmColor
End With

' Clean up previous drawing
Me.Cls

' Make in-memory screen compatible metafile DC
SetRect rc, 0, 0, ScaleWidth * 100, ScaleHeight * 100 ' Size in Hi
Metrics (0.01 mm)
lDC = CreateEnhMetaFile(0&, vbNullString, rc, vbNullString)

' Set map mode of metafile DC to LOMETRIC (0.1 mm)
lOldMapMode = SetMapMode(lDC, MM_LOMETRIC)

' DrawIocnEx
With m_objIcon
Call DrawIconEx(lDC, 0, 0, .Handle, _
ScaleWidth * 10, _
-ScaleHeight * 10, _
0&, 0&, DI_NORMAL)
End With

' Restore map mode of metafile DC
Call SetMapMode(lDC, lOldMapMode)

' Close metafile DC and get metafile
hMeta = CloseEnhMetaFile(lDC)

' Set drawing coordinates
SetRect rc, 0, 0, ScaleWidth * 10, -ScaleHeight * 10

' Set map mode of form to LOMETRIC
lOldMapMode = SetMapMode(Me.hdc, MM_LOMETRIC)

' Draw onto form
PlayEnhMetaFile Me.hdc, hMeta, rc

' Clean up
DeleteEnhMetaFile hMeta
Call SetMapMode(Me.hdc, lOldMapMode)

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
' Clean up
Set m_objIcon = Nothing
End Sub


.

Loading