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