[MiXaeL]

 
Function RGBToInt(r, g, b)
    Return ((r And $ff) Shl 16) Or ((g And $ff) Shl 8) Or (b And $ff)
End Function
 
Function IntToR(rgbint)
    Return ((rgbint Shr 16) And $ff)
End Function
 
Function IntToG(rgbint)
    Return ((rgbint Shr 8) And $ff)
End Function
 
Function IntToB(rgbint)
    Return (rgbint And $ff)
End Function
 
Function SetColor(rgbint)
    Color ((rgbint Shr 16) And $ff), ((rgbint Shr 8) And $ff), (rgbint And $ff)
End Function
 
Function SetClsColor(rgbint)
    ClsColor ((rgbint Shr 16) And $ff), ((rgbint Shr 8) And $ff), (rgbint And $ff)
End Function