codice:Private Sub Form_Load() Dim mesi(1 To 12) As String Dim i As Integer mesi(1) = "Gennaio" mesi(2) = "febbraio" 'continua per tutti i mesi For i = LBound(mesi) To UBound(mesi) List1.AddItem mesi(i) & " " & Year(Date) Next i End Sub
codice:Private Sub Form_Load() Dim mesi(1 To 12) As String Dim i As Integer mesi(1) = "Gennaio" mesi(2) = "febbraio" 'continua per tutti i mesi For i = LBound(mesi) To UBound(mesi) List1.AddItem mesi(i) & " " & Year(Date) Next i End Sub
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te