Visual Basic - descomponer en RGB

Hola. usando el picturex.point(x,y) recibo en una variable el color. ¿Cómo puedo saber el valor R, el G y el B de dicha variable? me refiero si hay una instruccion, o si se deben calcular dichos valores. Gracias.

Este código siempre ha funcionado

Private Sub LongToRGB(ByVal RGBval As Long, Optional ByRef iRed As Integer, Optional ByVal iGreen As Integer, Optional ByVal iBlue As Integer)
iRed = RGBval And 255
iGreen = (RGBval \ 256 ^ 1) And 255
iBlue = (RGBval \ 256 ^ 2) And 255
End Sub

Saludos Ruri

Hola, Ruri.

Muy bueno el código, pero sólo funciona para números positivos.
Por ejemplo, cuando intento descomponer Form1.BackColor (un gris), siempre me devuelve 15,1,1 en R,G,B, respectivamente.