FoxPro/Visual FoxPro - Conversion color compuesto

Hola, queria saber si alguien tenia idea de como covertir un color compuesto en RGB. Por ejemplo, si selecciono un color con getcolor() obtengo un nro. de color compuesto pero como hago para obtener el RGB? Gracias

nColor = GETCOLOR()

nAzul = INT(nColor/(256^2))
nColor = MOD(nColor,(256^2))
nVerde = INT(nColor/256)
nRojo = MOD(nColor,256)
_screen.BackColor = RGB(nRojo,nVerde,nAzul)

Muchas gracias!!

Chevere me sirvio mucho, me tenia voltiando..