這個是彈出選單，選單在窗體上不顯示，單擊右鍵時彈出，所以需要將所有選單做成子選單。1、先在VB裡開啟選單編輯器（在窗體顯示的情況下，在工具選單裡點“選單編輯器"2、新建選單：（1）先做一個總選單項，標題中填寫”彈出",名稱中填寫mymenu，該選單項是不顯示的，用來彈出。（2）做如圖子選單，標題中填寫選單中顯示的內容，比如：排列圖示，重新整理等等，名稱內輸入你自定義的名稱，比如：排列圖示的名稱mnu_pailie，名稱用來在編寫程式碼時識別該選單。橫線在VB中標題內輸入減號（-），名稱也需要輸入。（3）下級選單（如排列圖示有下級選單），用向右的箭頭調整隻要是標題和名稱輸入好了，就是合法的。其它不符合要求可以慢慢修改，不影響你條試驗。3、編寫程式碼：Private Sub Form_Load()mymenu.Visible = False‘mymenu是要彈出總選單的名稱，在窗體上禁止顯示，當然，你也可以讓它顯示End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗體的滑鼠按鍵抬起事件，當滑鼠按鍵向上抬起時發生If Button = vbRightButton Then‘button引數是按鍵，如果抬起的是滑鼠右鍵時 Me.PopupMenu mymenu’彈出mymenuEnd IfEnd Sub‘滑鼠點選後索要完成的功能，在該選單名稱的click中編寫程式碼：Private Sub mnu_pailie_Click() ’這裡編寫排列圖示程式碼End Sub