Private Declare Sub GetRGB Lib "vbex32.dll" Alias "VBRGBSPLIT" _
    (Byval nRGB As Long, _
     Byref COLInfo As RGBInfo)
 
Private Type RGBInfo
     Red As Long
     Green As Long
     Blue As Long
End Type
 
'************************* ( END Declarations ) *******************************
 
Private Function GetMyColor(Byval nCol As Long) As RGBInfo
      Dim InfC As RGBInfo
 
      ' ----------> Jump into CPU-Registers ;-) for speed
      GetRGB nCol, InfC
 
      GetMyColor.Red = InfC.Red
      GetMyColor.Green = InfC.Green
      GetMyColor.Blue = InfC.Blue
 
End Function