Private Sub VerticalMenu1_MenuItemClick(MenuNumber As Long, MenuItem As Long) If MenuNumber = 1 Then If MenuItem = 1 Then Form2.Show If MenuItem = 2 Then MsgBox "你按了b", , "VerticalMenu" If MenuItem = 3 Then MsgBox "你按了c", , "VerticalMenu" If MenuItem = 4 Then MsgBox "你按了d", , "VerticalMenu" End If If MenuNumber = 2 Then If MenuItem = 1 Then MsgBox "你按了e", , "VerticalMenu" End If If MenuNumber =3 Then If MenuItem = 1 Then MsgBox "你按了f", , "VerticalMenu" End If End Sub