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

 

Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

  For Each item As ToolStripItem In ContextMenuStrip1.items

    Dim objAsConvertible = TryCast(item, ToolStripMenuItem)

    If Not objAsConvertible Is Nothing Then 

      Dim cms As ToolStripMenuItem = DirectCast(item, ToolStripMenuItem)

      Debug.WriteLine(CStr(cms.Text)+":"+Cstr(cms.Name))

    End If

  Next

End Sub