SUB VBRGBSPLIT ALIAS "VBRGBSPLIT" (BYVAL nRGB AS LONG, rgbInf AS RGBInfo) EXPORT
   DIM n AS LONG
   n=nRgb
   IF nRGB = 0 THEN '  < ------ wegen dem hier!
       rgbInf.Red = 0
       rgbInf.Green = 0
       rgbInf.Blue = 0
       EXIT SUB
   END IF
 
   rgbInf.Red = n AND &HFF
   rgbInf.Green = n \ &H100 AND &Hff
   rgbInf.Blue = n \ &H10000 AND &Hff
END SUB