VB利用SendMessage函数改变进度条颜色