codice:
Public Sub CreaTastiV()
        posx = InsPos
        poslung = Lung
        If poslung <= 0 Then
            poslung += 25
        End If
        If posx <= 10 Then
            posx = 10
        End If
        Dim V As New Button
        V.Size = New Size(poslung, 25) 'grandezza pulsante
        V.Name = "Pulsante" & Nome.ToString 'nome pulsante
        V.Text = "" 'testo pulsante
        V.Location = New Point(posx, 20) 'posizione pulsante
        V.BackColor = Color.GreenYellow 'colore
        V.Tag = InsNota 'inserisce nel tag il valore completo della nota
        FrmChart.NoteBox.Controls.Add(V) 'aggiunge
        AddHandler V.DoubleClick, AddressOf Pulsante_DoubleClick
        AddHandler V.Click, AddressOf Pulsante_Click 'assegna click 
        AddHandler V.MouseHover, AddressOf Pulsante_MouseHover


        Nome += 1 'incrementa numero pulsante

        FrmChart.NoteBox.Refresh()

    End Sub
Notebox è il panel dove aggiungo i pulsanti alla fine faccio il refresh

Inoltre ora ho scoperto che se creo pulsanti consecutivamente me li sovrappone come dicevo ma se tra un pulsante e un altro faccio un operazione nel panel o su uno dei tasti creati mi va avanti regolarmente. Però il tutto solo dopo che raggiungo una certa lunghezza