Try this. Add a ComboBox to your form and paste this code to Form_load event:
Code:
Private Sub Form_Load()
    Dim i As Integer
    
    For i = 0 To 11
        Combo1.AddItem Format(DateAdd("m", i, "1/1/" & Year(Date)), "mmmm")
    Next
End Sub
------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819



[This message has been edited by Serge (edited 12-09-1999).]