はじめまして。

●環境
・VB2005
・WindowsXP

モノクロの画像を高速で表示したいのですが
うまく表示できません。
どなたか教えて頂けないでしょうか？

カラーテーブルの値を変更する…。までは調べたのですが
SetDIBColorTable関数の戻り値が"0"となります。


＊コード＊

        Dim bmpInfo As BITMAPINFOHEADER
        Dim bmiColors(255) As RGBQUAD         ' DIBカラー設定格納


        bmpInfo.biBitCount = 8
        bmpInfo.biClrImportant = 0
        bmpInfo.biClrUsed = 0
        bmpInfo.biCompression = 0
        bmpInfo.biHeight = 480
        bmpInfo.biPlanes = 1
        bmpInfo.biSize = 40 ' SizeOf(BITMAPINFOHEADER)
        bmpInfo.biSizeImage = 307200
        bmpInfo.biWidth = 640
        bmpInfo.biXPelsPerMeter = 0
        bmpInfo.biYPelsPerMeter = 0

        ’カラーパレットを変更
        For i = 0 To 255
            bmiColors(i).rgbBlue = i
            bmiColors(i).rgbGreen = i
            bmiColors(i).rgbRed = i
            bmiColors(i).rgbReserved = 0
        Next i

　　　　↓戻り値が"0"となります。
　　　　SetDIBColorTable(hdc, 0, 255, bmiColors(0))

知識不足ですみません。
よろしくお願いします。