Dim m As New MainMenu
Dim cm As New ContextMenu
Dim ni As New NotifyIcon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  cm.MenuItems(0).MenuItems.Add("22")
  Me.Text = cm.MenuItems(0).MenuItems.Count.ToString
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  cm.MenuItems.Add("0")
  ni.Icon = Me.Icon
  ni.ContextMenu = cm
  ni.Visible = True
End Sub

Вопрос вроде простой, но никак не пойму что делаю не так. Вот в чем проблемма:

запускаю программу, жму на кнопку, менюшки добавляются, проверяю(навожу мышкой в трей) - добавились.

жму снова на кнопку, кол-во менюшек увеличелось, но они не отображаются.