用VB开发的显示状态的设置,压缩包内有源代码。