[VB.net][WFA][example] Get ToolStripMenu items

 

Private Sub ColourToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColourToolStripMenuItem.Click

  Dim count As Integer = sender.DropDownItems.Count

  For Each subItem In sender.DropDownItems

    Dim objAsConvertible = TryCast(subItem, ToolStripMenuItem)

    If Not objAsConvertible Is Nothing Then

      Dim tsm As ToolStripMenuItem = DirectCast(subItem, ToolStripMenuItem)

      Debug.WriteLine(CStr(tsm.Text)+":"+CStr(tsm.Name))

    End If

  Next

End Sub