如何点击标签控件，图片出现；双击图片，图片消失？

user_tqkbo

请教如何点击标签控件，图片出现；点击图片，图片消失？
代码我是这样写的：
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1.Visible = False
End Sub
Private Sub Label1_Click()
Image1.Visible = True
End Sub
我将Label1的属性BackStyle为0，可是还是会出现 Label1，有时双击图片消失后， Label1也消失了(点击那块区域进入下一页了)，请问是什么原因？

user_pmrjy

将双击图像框改为单击

yuemao0915

谢谢上面的朋友!设置为双击主要是为了误操作打开下一页。不管是单击还是双击Label1还是会出现，好象属性BackStyle设置为0无效一样。用黑色背景，白色Label1就可以看出来。

user_lgsto

具体的意图是单击标签，图像框显示；双击图像框，图像框消失，是这样吗

user_qrbay

楼上的朋友，是的。因为时间紧迫，我改用动作实现了此功能。如果能用VBA实现当然更好。

user_qtvtwxxn

我也期待vba的回答