Visual Basic - Obtener el numero de dias en cajas combos

tengo dos combos en uno al seleccionar el mes, automaticamente me debe aparecer el numero de dias en el otro combo, si alguien puede ayudarme de antemano gracias.

Te paso un ejemplo a tu correo...saludos!!!

Jorge:

Es cuestión de utilizar el almanaque. Los meses impares tienen 31 días, los pares 30 y febrero 28 o 29, dependiendo si es bisiesto o no. El truco está en utilizar el evento click del combo que contiene el mes y borrar el de los días y cargarlo de vuelta. Voy a llamar cboAnio, cboMes y cboDias a los combos que contienen los años, meses y los días respectivamente. Voy a suponer que mostras el número del mes es decir que los mostrar como (1/2/2004)

Private sub cboMes_Click()
dim iMes as long, iAnio as long, numDias as long, k as long
iMes=clng(val(cboMes.text))
iAnio=clng(val(cboAnio.text))
if iMes=2 then
if (iAnio mod 4)=0 then 'Año bisiesto
NumDias=29
Else
NumDisas=28
End if
Elseif (iMes mod 2)=0 then 'Mes par
NumDias=30
Else
NumDias=31
End if
cboDias.Clear
For k=1 to NumDias
cboDias.AddItem k
Next k
End Sub

Si tenés organizados los combos de otra manera, decime y te ayudo con el código

Saludos Ruri