Ma no .... devi usare un array di controlli ... Chiami tutti i controlli
txt
e inserisci i valori da 0 a 30 nella proprieta' Index
e fai lo stesso con
Quindi scrivi qualcosa come
codice:Private Sub crea_Click() Dim ix As Long For ix = 0 To 30 txt(ix).Text = Format$(CDate(CStr(ix+1) & "/" & Combo1.Text & "/" & Combo2.Text), "DDDD") Next ix End Sub