劣者收到！版主您真的是太強了，佩服佩服！！
您提到的那個問題(直接 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
)把它重新顯示處理
應該是小弟一開始的使用的方式就錯誤了，Trace 比較了好久才發現是 Popupmenu 造成的問題，但還是不知道原因，現在卻已經可以順利獲得解決，感謝 mini 版主！！
若還有好方式，還請版主 or 各位高手不吝賜教！
劣者若是找到好方式，也會把它 回在此篇！！