Popolare Dropdownlist a manina

[Cartman]

Dim mese(11) As String
mese(0) = "gennaio"
mese(1) = "febbraio"
mese(2) = "marzo"
....
...
mese(1) = "dicembre"
Dim i As Integer
For i = 0 To 11
DropDownList1.Items.Insert(i, mese(i))
DropDownList1.Items(i).Value = i+1
Next

C.