Private Sub co1_Click()

l2.Caption = "Thaùng : " & co1.Text

End Sub

Private Sub Form_Load()

For i = 2000 To 2010

    For J = 1 To 12

        co1.AddItem J & "/" & i

        Next

        Next

End Sub