una lista di datetimepicker indicizzati

Salve a tutti,
vorrei creare un elenco di 10 controlli datetimepicker da codice (reperibili poi dal numero di indice e non dal nome) ed ho inserito nel programma le seguenti istruzioni:

dim datapro As List(Of DateTimePicker)= New List(Of DateTimePicker) 
poi ho creato questa sub che esegue il ciclo 10 volte
Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
Dim datapro As New DateTimePicker
datapro.Name = "datapro" & xa1.ToString
datapro.Enabled = True
datapro.Format = DateTimePickerFormat.Short
datapro.Location() = New Point(700, xa2)
datapro.Visible = True
datapro.add(datetimepicker)
End Sub
me.controls.add(datapro(x1))

ma sull'ultima riga il pgm si blocca e non esegue le istruzioni successive

Io ho inserito le stesse istruzioni che ho utilizzato per creare altrettante textbox a label, con questi funziona ma con datetimepicker no.
Qualcuno sa come creare questi controlli ed aggiungerli al form da codice?
Grazie per l'aiuto

Per il codice dovresti sapere che devi utilizzare i tag code, aggiungili al post precedente.

Poi indica chiaramente il messaggio d'errore, mostra questo ciclo di cui parli e dicci cosa è x1

Originariamente inviato da apteryx

Salve a tutti,
vorrei creare un elenco di 10 controlli datetimepicker da codice (reperibili poi dal numero di indice e non dal nome) ed ho inserito nel programma le seguenti istruzioni:

dim datapro As List(Of DateTimePicker)= New List(Of DateTimePicker)

poi ho creato questa sub che esegue il ciclo 10 volte

Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
Dim datapro As New DateTimePicker
datapro.Name = "datapro" & xa1.ToString
datapro.Enabled = True
datapro.Format = DateTimePickerFormat.Short
datapro.Location() = New Point(700, xa2)
datapro.Visible = True
datapro.add(datetimepicker)
End Sub
me.controls.add(datapro(x1))

ma sull'ultima riga il pgm si blocca e non esegue le istruzioni successive

Io ho inserito le stesse istruzioni che ho utilizzato per creare altrettante textbox a label, con questi funziona ma con datetimepicker no.
Qualcuno sa come creare questi controlli ed aggiungerli al form da codice?
Grazie per l'aiuto

Non cisono messaggi di errore, semplicemente si ferma l'esecuzione e il form non viene completato.
x1 è l'indice del for next da 0 9 che utilizzo per aggiungere altri controlli textbox e label oltre ai datetimepicker:

questa è x esempio la sub per definire il controllo textbox x il campo imponibile che ho scritto in un modulo:

Private Sub Addboxaimpo(ByVal xa1 As Integer, ByVal xa2 As Integer)
Dim textbox As New TextBox
textbox.Name = "aimpo" & xa1.ToString
textbox.Text = 0.ToString
textbox.Location() = New Point(1090, xa2)
textbox.Size = New Size(147, 20)
textbox.Tag = xa1
textbox.TabIndex = tabindbox
textbox.MaxLength = 32767
textbox.CausesValidation = True
textbox.TabStop = True
textbox.AutoSize = False
textbox.TextAlign = HorizontalAlignment.Right
textbox.Visible = True
textbox.Enabled = True
aimpo.Add(textbox)
End Sub

idem x gli altri controlli textbox, label, e x il datetimepicker ho fatto questo sempre nel modulo:

Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
Dim datapro As New DateTimePicker
datapro.Name = "datapro" & xa1.ToString
datapro.Enabled = True
datapro.Format = DateTimePickerFormat.Short
datapro.Location() = New Point(700, xa2)
datapro.Visible = True
datapro.Add(datetimepicker)
End Sub

poi nel ciclo for next del main del programma aggiungo i controlli al form:

Private Sub addcontrolli()
Dim x1 As Integer
For x1 = 0 To 14
Me.Controls.Add(dmastro(x1))
Me.Controls.Add(dtrigo(x1))
Me.Controls.Add(dimpo(x1))
Me.Controls.Add(dn(x1))
Me.Controls.Add(dtsott(x1))
Me.Controls.Add(dcsott(x1))
Me.Controls.Add(npro(x1))
Me.Controls.Add(datapro(x1))
next

quando arriva a datapro(x1) si ferma, il ciclo viene interrotto e nel form compaiono solo i controlli textbox e label con indice 0 ma non c'è segnalazione di errore.
Se tolgo il controllo datapro tutto funziona correttamente
Vorrei sapere se esiste un modo per aggiungere controlli di tipo datetimepicker al form da codice così come si fa per label e textbox.

(Spero di avere inserito i tag code giusti stavolta.)
Grazie ancora.

No, i tag CODE li ho inserito modificando il tuo post iniziale ... non devi usare QUOTE ma CODE per il codice ...

Per il problema, non capisco la linea

datapro.add(datetimepicker)

e dove chiami la sub addboxdatapro ...

Mi sembra tutto sbagliato ...

la sub addboxdatapro è nel modulo che utilizzo per definire i controlli che mi servono nel form, poi nel main del programma utilizzo l'istruzione "me.controls.add... " eccetera per aggiungere i controlli al form.
Scusa già che ci siamo dimmi anche dove trovo il tag CODE, io mi trovo solo le icone faccine, link,email,immagine,video e QUOTE.
Grazie.

Non ho capito ... non hai risposto alla mia domanda ...

Dove chiami la sub addboxdatapro, dove la usi ? Non dove sta ...

I tag CODE li aggiungi con il tasto # in modalità avanzata ....

la sub addboxdatapro la chiamo sempre dal e nel modulo :

 For xa1 = 0 To 9
            addboxdatapro(xa1, xa2)
            tabindbox += 1 
            xa2 += spriga
        Next

dove "spriga" contiene il numero di spazi tra una riga e la successiva per la posizione nel form e tabindbox il numero di indice che assegno al controllo.
riprovando adesso una segnalazione di errore c'è sulla riga:

datapro.add(DateTimePicker)

dice: "ADD" non è un membro di System.windows.forms.datetimepicker
(Ce l'ho fatta con il tag Code!Grazie)

Ma datapro non può essere una list e un datetimepicker ...

ma a me servirebbe proprio una lista di 10 controlli datetimepicker indicizzati per ritrovarli appunto tramite indice e non con il nome. Non c'è soluzione alcuna?

Certo! Quello che ti dicevo è che devi usare una lista che deve avere un suo nome. Gli oggetti che inserisci nella lista devono averne altri.

Devi predisporre una lista di oggetti nel form, ad esempio così

Dim lstDatapro As List(Of DateTimePicker) = New List(Of DateTimePicker)

e poi nella funzione cha aggiunge il singolo oggetto, scriverai

   Private Sub addboxdatapro(xa1 As Integer, xa2 As Integer)
        Dim datapro As New DateTimePicker

        datapro.Name = "datapro" & xa1.ToString
        datapro.Enabled = True
        datapro.Format = DateTimePickerFormat.Short
        datapro.Location() = New Point(10, xa2)
        datapro.Visible = True

        lstDatapro.Add(datapro)
        Controls.Add(datapro)
    End Sub