addhandler not working? Vb.net

[Alcestis]

For some reason i cannot understand, i cannot add a click event to these dynamically made panels. I have included my relevant code below...any help would be great.

Public Sub addlayer()
        'make space
        ReDim Preserve dynpan(intlayer)
 
        'create new panel and define propeties
        dynpan(intlayer) = New Panel
        Me.Controls.Add(dynpan(intlayer))
        AddHandler dynpan(intlayer).Click, AddressOf doall_click
        dynpan(intlayer).Visible = True
        dynpan(intlayer).Height = Panbg.Height
        dynpan(intlayer).Width = Panbg.Width
        dynpan(intlayer).Parent = Panbg
        dynpan(intlayer).Tag = intlayer
        dynpan(intlayer).BackColor = Color.WhiteSmoke

the event it is supposed to call is below, it is intended to allow the user to click on the panel to create a label at the mouse cursor...it dosn't do this!

 n = libxlayer.Items.Count
        Debug.Print("Hello")
 
 
        If Tool = "Text" Then
 
            'define varibles
            intelement = intelement + 1
            CursorOffset = Windows.Forms.Cursor.Position
            intheight = (Me.Height - panbg.Height) / 2
            intwidth = (Me.Width - panbg.Width) / 2
            sintxtsize = txtsize.Text
 
            'make space
            ReDim Preserve dynlabel(intelement)
 
            'create new label and define propeties
            Me.Controls.Add(dynlabel(intelement))
            dynlabel(intelement) = New TextBox
            dynlabel(intelement).Location = New Point((CursorOffset.X - intwidth), (CursorOffset.Y - intheight))
            dynlabel(intelement).Parent = dynpan(n)
            dynlabel(intelement).Text = "TYPE HERE"
            dynlabel(intelement).Tag = intelement