Visual Basic - Obtener cantidad de colores

necesito obtener la cantidad (gama) de colores desde VB 6, alguien sabe como hacer eso?. Porque lo que encontre es para win 95 y no funciona bien.

Necesito que me de 16 bits, 32 bits o lo que sea.

espero que alguien tenga la respuesta

desde ya muchas gracias

con la funcion RGB

por ej

pone 3 vscroll y un picture
las propiedades min=0 y max=255

Private Sub VScroll1_Change(Index As Integer)
Picture1.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub

y esto te da los 16581275 colores

con la funcion RGB

por ej

pone 3 vscroll y un picture
las propiedades min=0 y max=255

Private Sub VScroll1_Change(Index As Integer)
Picture1.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub

y esto te da los 16581275 colores

Christian eso no es lo que estoy buscando, lo que necesito es obtener la cantidad de colores de la pantalla, osea si esta configurado para 16 colores, 256 colores, 16 bits, 32 bits.
Eso es lo que necesitaria.

Si alguien sabe como obtenerlo, capas hay alguna API para hacerlo, se lo agradeceria

desde ya muchas gracias

Puedes usar EnumDisplaySettings:

Call EnumDisplaySettings(0&, ENUM_CURRENT_SETTINGS, DevM)

mResAncho = DevM.dmPelsWidth
mResAlto = DevM.dmPelsHeight
mResBits = DevM.dmBitsPerPel

En:

http://www.mundoprogramacion.com/vb/API/resolucionpantalla.htm

tienes más ejemplos.

Buenisimo, gracias Cecilia me re sirvio, ya me estaba volviendo loco buscando como hacerlo.