Se ho capito bene la tua domanda il codice dovrebbe essre questo:
Ciao.codice:Private Sub Form_Load() Dim strA(24) As String For i = 0 To 23 strA(i) = Now + (i - 12) * 30 strA(i) = Format(strA(i), "mm/yyyy") Combo1.AddItem strA(i) Next i End Sub![]()
Se ho capito bene la tua domanda il codice dovrebbe essre questo:
Ciao.codice:Private Sub Form_Load() Dim strA(24) As String For i = 0 To 23 strA(i) = Now + (i - 12) * 30 strA(i) = Format(strA(i), "mm/yyyy") Combo1.AddItem strA(i) Next i End Sub![]()
Giorgio
L'esperienza è il tipo di insegnante più difficile. Prima ti fa l'esame, e poi ti spiega la lezione. (Oscar Wilde)