VB6中如何设置表单黄色对象的点击透明度显示?