为什么非要用API？ VB自己的不行吗？
Randomize(Time())
Text1.BackColor = Int((65537) * Rnd)
用postmessage或sendmessage函数用向文本框发送相应的消息 即可
具体的你 在百度里搜下
取消确定
迷醉彩霞
