>>598 別に役に立たない代物で、途中までで消えてないからいいって話は全然無いからｗ Public Class Form6 Private ContextMenuStrip1 As New ContextMenuStrip Private ContextMenuStrip2 As New ContextMenuStrip Private ToolStripMenuItem1 As New ToolStripMenuItem Private ToolStripMenuItem2 As New ToolStripMenuItem Private ToolStripMenuItem3 As New ToolStripMenuItem Private items As ToolStripItem() Private count As Integer Private Sub Form6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ToolStripMenuItem1.Text = "ToolStripMenuItem1" ToolStripMenuItem2.Text = "ToolStripMenuItem2" ToolStripMenuItem3.Text = "ToolStripMenuItem3" ContextMenuStrip1.Items.Add(ToolStripMenuItem1) ContextMenuStrip1.Items.Add(ToolStripMenuItem2) ContextMenuStrip1.Items.Add(ToolStripMenuItem3) count = ContextMenuStrip1.Items.Count
For i As Integer = 0 To count - 1 ContextMenuStrip2.Items.Add(items(i)) Next Application.DoEvents() Me.ContextMenuStrip = ContextMenuStrip1 Label1.ContextMenuStrip = ContextMenuStrip2 End Sub End Class
