[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Dim[/COLOR] I [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Integer[/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] frmCalender_Load([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, [COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.EventArgs) [COLOR=#0000ff]Handles[/COLOR] [COLOR=#0000ff]MyBase[/COLOR].Load[/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]For[/COLOR] I = 1 [COLOR=#0000ff]To[/COLOR] 12[/FONT][/SIZE]
[FONT=Courier New, monospace][SIZE=2]cboMonth.Items.Add(I)[/SIZE][/FONT]
[FONT=Courier New, monospace][SIZE=2]cboMonth.SelectedIndex = 0[/SIZE][/FONT]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Next[/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#008000]'get the years for combo box [/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Dim[/COLOR] Year [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Integer[/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]For[/COLOR] Year = 1900 [COLOR=#0000ff]To[/COLOR] [COLOR=#0000ff]CInt[/COLOR](Val(Format(Now, "yyyy")))[/FONT][/SIZE]
[FONT=Courier New, monospace][SIZE=2]cboYear.Items.Add(Year)[/SIZE][/FONT]
[FONT=Courier New, monospace][SIZE=2]cboYear.SelectedIndex = 0[/SIZE][/FONT]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Next[/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR][/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] cboMonth_SelectedIndexChanged([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR], [COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.EventArgs) [COLOR=#0000ff]Handles[/COLOR] cboMonth.SelectedIndexChanged, cboYear.SelectedIndexChanged[/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace]cboDate.ValueMember = Str([COLOR=#0000ff]Date[/COLOR].DaysInMonth((cboYear.SelectedIndex), cboMonth.SelectedIndex + 1))[/FONT][/SIZE]
[SIZE=2][FONT=Courier New, monospace][COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR][/FONT][/SIZE]