converting a long to a RGB

i am useing this

Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

i am guessing it returns the color, but it is a long, how can i convert it to rbg?

This should do it:

Code:

---

Red = LngColour Mod 256
Green = Int(LngColour / 256) Mod 256
Blue = Int(LngColour / &h10000)

---