#uselib "gdi32"
#func SetTextColor "SetTextColor" int, int
#cfunc GetStockObject "GetStockObject" int
#define ctype RGB(%1,%2,%3) (%1 | %2 << 8 | %3 << 16)
screen 0,300,20,0
objsize 300,20
oncmd gosub *colorsample, $133
sample = "文字色変更サンプルだよん"
input sample,1100
hBrush = GetStockObject (0)
stop
*colorsample
SetTextColor wparam, RGB ($00, $FF, $00)
return hBrush
で変更できます。