DirectDraw RGB Color

[Cs30Man]

I want to fill a directdraw suuface with a specific color so i do:

dim color as long
dim ddrval as long 

color = DirectXObject.CreateColorRGB(0,150,0)
ddrval = objDDPrimSurf.BltColorFill(r1, color)   'r1 being the rectangle I want to fill

I do not specify a color bit rate when I start DirectDraw (it's a windowed direct draw app). When I run this I should get a green surface but I don't!!! what do I do to fix?? (I think the problem is DirectXObject.CreateColorRGB() giving me the wrong color value)

[Sastraxi]

Usually just RGB(0, 150, 0) will work.
If you are running under 16 bits you should use the DDColour function created by Jack Hoxley. It's at the DirectX 4 VB site (look around a bit).

His site is...
http://www.vbexplorer.com/directx4vb/