建立菜单如下
...............变化 （不可见）
............................................显示
...............退出
下面通过弹出“变化”菜单，触发"显示"事件，使得上一级菜单”变化“可以显示出来
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = vbRightButton Then
PopupMenu menuchange
End If
End Sub
Private Sub menuDisplay_Click()
menuchange.Visible = True
End Sub
可以看到，没有效果，”变化“菜单仍然处于不可见，为什么呢？代码没有错啊。
把点击事件的代码去掉，跟踪发现
尽管”变化“是不可见的，当弹出菜单时，会发现可见为真，当弹出菜单完成后会发现，可见为假。
那么，我们把弹出菜单时置为假时，最后再置真时，就会发现它就会始终保持最后一句的状态。
于是改为下面
Private Sub menuDisplay_Click()
menuchange.Visible = False
menuchange.Visible = True
End Sub 这样，就可以激活上一级可见菜单。 原文链接：https://www.f2er.com/vb/259051.html