Na, tis easier than that..
Global fore1 = $5f5f5f
Global fore1r = fore1 Shr 16 And $FF
Global fore1g = fore1 Shr 8 And $FF
Global fore1b = fore1 And $FF
Global fore1 = $5f5f5f
Global fore1r = fore1 Shr 16 And $FF
Global fore1g = fore1 Shr 8 And $FF
Global fore1b = fore1 And $FF