scusate era colpa del month
codice:
Combo1.Clear
    For i = 1 To 12
        Combo1.AddItem MonthName(i, False)
    Next i