Dim iAktu As Integer = 1
        p1.Controls.Clear()
 
        Dim elblA As Label
        Dim echkA As CheckBox
 
        Do
            elblA = New Label
            elblA.Location = New Point(GroupBox1.Controls("pan" & hb_var.Value _
              - 1).Controls("nlbl"_ & iAktu).Location)
            elblA.Text = GroupBox1.Controls("pan" & hb_var.Value - 1).Controls( _
            "nlbl" & iAktu).Text
            elblA.AutoSize = True
            elblA.Name = "elbl" & iAktu
            p1.Controls.Add(elblA)
 
            echkA = New CheckBox
            echkA.Location = New Point(GroupBox1.Controls("pan" & hb_var.Value _
              - 1).Controls("nchk"_ & iAktu).Location)
 
 
            echkA.Name = "echk" & iAktu
            p1.Controls.Add(echkA)
 
        'Hier dein kleiner Code abschnitt
        AddHandler echkA.CheckedChanged, _
           [u]Sub(sender As System.Object, e As System.EventArgs)
                msgbox(echkA.name) 'msgbox mit den namen,einfach nur als test 
                ' ob es funktioniert
[u]End Sub
 
            iAktu += 1
        Loop While iAktu <= iCtrl
 
End Sub