Dim menus As New System.Windows.Forms.MenuStrip Dim menu1 As New System.Windows.Forms.ToolStripMenuItem Dim menu2 As New System.Windows.Forms.ToolStripMenuItem menu1.Text = "菜单1" menu2.Text = "菜单2" menus.left = 10 menus.Top = 10 menus.items.Add(menu1) menus.items.Add(menu2) e.Form.panel.controls.add(menus)