劣者收到！版主您真的是太強了，佩服佩服！！
您提到的那個問題(直接 Popup 第二階Menu)，小弟先前也有發現，後來好像用了個人試出來的偏方(
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
' ◎這裡不知道算不算是
VB 的 Bug
' 在其它地方，被引用過 子功能表(PopupMenu mnu_Order)，且被顯示過一次
' 這裡的 就會減少了 那個 子功能表 的顯示 (也就是 子功能表.Visible = False)
mnu_Order.Visible = True
mnu_Find.Visible = True
PopupMenu mnu_PopUp
End If
End Sub
)把它重新顯示處理