How to delete menuItems and their Handlers?

[jonwondering]

Hey everybody, I have a little problem and I can't figure it out. I got a memory leak... Let's say I have a txt file with the following values in there:

Red
Green
Blue

My program reads in those values every 10 seconds and stores them as a menu in a ContextMenu control. I have done that with a timer (obviously) and everytime before it loads the items in a menu, it clears the menu (so that the menuitems would not pile up).

Here's the code inside the loop:

Dim Z As MenuItem
While ("... Not the end of file ...")
            ' Here 'Temp' stores the name of the color
            Z = New MenuItem(Temp)
            Me.ContextMenu1.MenuItems.Add(Z)
            AddHandler Z.Click, AddressOf Implement_Click
End While
 
Private Sub Implement_Click(ByVal Sender As Object, ByVal e As EventArgs) Handles Z.Click
            MsgBox("You clicked here")
End Sub

The problem is that every time the loop executes, it creates new MenuItems and new Handlers for them, making the memory usage of the program increase...

Does anybody know how I can delete those MenuItems and their Handlers to free up that space?
(The problem is that they are created dynamically...)

Thanks,
Jon

[thecow95]

Would this take care of it? I used an array to simulate the file, and just put the code in a button click for testing. It seemed to work with repeated runs.

        Dim Temp As String() = {"Red", "Blue", "Green"}
        Dim Z As MenuItem

        While Me.ContextMenu.MenuItems.Count > 0
            Me.ContextMenu.MenuItems(0).Dispose()
        End While

        For i As Integer = 0 To Temp.Length - 1
            Z = New MenuItem(Temp(i))
            Me.ContextMenu1.MenuItems.Add(Z)
            AddHandler Z.Click, AddressOf Implement_Click
        Next

Also, I got rid of the 'Handles Z.Click' at the end of the Implement_Click (since you are attaching it in code).

[jonwondering]

Yes that works well.

Thank you very much,
Jon