...
 
If Not ctrl.ContextMenu Is Nothing Then
 
                    Dim MyCollection As ContextMenu.MenuItemCollection = _
                      ctrl.ContextMenu.MenuItems
                    Dim tnContextMenuName As New TreeNode
                    tnContextMenuName.Text = ???
                    tnContextMenues.Nodes.Add(tnContextMenuName)
                    For i As Integer = 0 To MyCollection.Count - 1
                        HandleMenuItem(MyCollection.Item(i), tnContextMenuName)
                    Next
                End If
 
...