[2005] Context menu click problem!

[Atheist]

My application reads a folders subfolders and adds these to a contextmenues.
Then it finds all the files in each subfolders and adds them to their respective menu item. My code:

Dim WithEvents aMenuItem As ToolStripMenuItem
 
Private Sub RefreshFiles()
        Dim dataarray() As String
        Dim dataarray2() As String
        Dim TempItem As New MenuItem
        Dim temp As Integer
        For Each dr As Object In System.IO.Directory.GetDirectories("D:\Musik\")
            dataarray = dr.ToString().Split("\")
            CMenu.Items.Add(dataarray(UBound(dataarray)))
            temp = CMenu.Items.Count - 1
            aMenuItem = DirectCast(Me.CMenu.Items(temp), ToolStripMenuItem)
            For Each fi As Object In System.IO.Directory.GetFiles("D:\Musik\" & dataarray(UBound(dataarray)))
                dataarray2 = fi.ToString.Split("\")
                aMenuItem.DropDownItems.Add(dataarray2(UBound(dataarray2)))
            Next fi
        Next
        NI.Visible = True
    End Sub

Now the problem is that I dont know how to find out if the user has clicked on my submenues! Please help