Private Sub cboMonate_Change()
Dim intCounter As Integer
cboTage.Clear
For intCounter = 1 To Day( _
DateSerial(Year(Date), cboMonate.ListIndex + 2, 0))
cboTage.AddItem intCounter
Next intCounter
cboTage.ListIndex = cboTage.ListCount - 1
End Sub