いろいろやっていて気がついたのですが以下の型と関数が定義されて
いないようです。
(他は未確認)
コード:
TypeDef HPALETTE = DWord ' HPALETTE 型
TypeDef COLORREF = DWord ' COLORREF 型
Declare Function SelectPalette Lib "gdi32" (hdc As HDC, hpal As HPALETTE, bForceBackground As DWord) As HPALETTE
Declare Function RealizePalette Lib "gdi32" (hdc As HDC) As Long
定義は多分、これで間違っていないと思います。
(少し自信なし)