关于image控件的一个问题

Question

窗体上有一个image控件，我现在要求就是鼠标单击这个image，如果原来是可见的就隐藏，如果是隐藏的就显示出来，下面是我写的，单击image时可以隐藏，但再单击就显示不出来了，请问是怎么回事？应该怎么写呢？Private Sub Image1_Click()
If Image1.visible = true Then
Image1.visible = false
Else
Image1.visible = true
End If
End Sub

Answer 1

隐藏时击不中对象，可以添加一个LABEL：
Private Sub Form_Load()
Label1.Move Image1.Left, Image1.Top, Image1.Width, Image1.Width
Label1.BackStyle = 0
Label1.Caption = ""
End SubPrivate Sub Label1_Click()
Image1.Visible = Not Image1.Visible
End Sub