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