VB为什么visible=false 还是不回消失

代码如下：
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False

End Sub
应该如何修改？

Private Sub Label1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False

End Sub

set xlapp = createobject("excel.application") 运行后，会创建excel的实例，在任务管理器中会看到进程excel.exe 此时xlapp的visible属性默认值是false，所以xlapp是隐藏的，运行 xlapp.visible = true后才会显示。所以说不存在“无法隐藏”的问题。 说明：xp ＋ office2003

这是两个事件的问题 前者你按下了鼠标激发 MouseUp事件 隐藏了 可是你能保证鼠标不在Label1上移动吗？显示是不可能的 只要一移动就会激发 MouseMove事件 这个事件是 不隐藏即显示出来 所以不会隐藏了

呵呵！这代码就是你写的问题了! MouseMove是鼠标移动的时候触发的事件!也就是说当你的鼠标动了,这个MouseMove事件的代码就会被触发! MouseUp是你单击鼠标按钮提起来的时候会触发的事件! 你不要把Image1.Visible = True放在MouseMove事件下就不会出现这问题了!