gt; 0) Then
         lHDC = CreateCompatibleDC(lhDCDesktop)
         ReleaseDC lhWnd, lhDCDesktop ' 2003-07-05: Corrected for GDI leak in
          Win98
         If (lHDC &lt;&gt; 0) Then
            lhBmpOld = SelectObject(lHDC, hBmp)
            LoadPictureBlt lIndex, lHDC
            SelectObject lHDC, lhBmpOld
            DeleteDC lHDC
         End If
      End If
   End If
   
End Function

Private Function Create( _
        ByVal lIndex As Long, _
        ByVal lWidth As Long, _
        ByVal lHeight