Dim menuItem As ToolStripMenuItem = Nothing Dim itemList As ToolStripItemCollection = Me.tsmCloseViews.DropDownItems() For Each tsmObj As Object In itemList menuItem = TryCast(tsmObj, ToolStripMenuItem) If menuItem.Tag = "(Open)" Then With menuItem .Tag = NewForm.Name .Text = "Close " & FormText .GetCurrentParent.Visible = True .Visible = True .Available = True End With Exit For End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)