Dim s As SHFILEINFO
　　Call SHGetFileInfo(fname, 0, s, Len(s), SMALL_ICON)
　　hb = GetStockObject(BLACK_BRUSH)
　　Call DrawIconEx(g.hdc, x, y, s.hicon, 0, 0, 0, hb, DI_NORMAL)

版違いだったらすみません。

アイコンを、重ねあわせで表示したいのですが、これだと周りが
塗りつぶされてしまいます。ブラシを適当に変えてみましたが、
普通はどうやっているのでしょうか??