VB6代码，仅仅一个模块，非常方便移植到其他工程，重绘自带按钮，仿QQ2009，带渐变效果。