大家帮忙一下,该怎么解决

大家帮忙一下
VB中,我想加个日历的控件,但是没有,现在只能用输入框代替,
这样,我要输入年,月,日,然后三个COMBOX,要求combox的LIST下有具体的数字
年从1900-2500,月从1-12,日从1-31,这么多数字一个个写进去可太累,但是要写函数语法又有问题,所以这里还请各位帮忙实现

应该难不住大虾门了
!!!

------解决方案--------------------
dim a as Integer
年:

for i=1900 to 2005
combox1.AddItem i
next
月:
for i=1 to 12
combox2.AddItem i
next

for i=1 to 31
combox3.AddItem i
next


这样行倒是行 但是无法确定一个月是有30天还是31天

建议楼主用DTpicker
部件中添加microsoft windows common controls -2 6.0 (sp6)
当然楼主的VB要打上sp6 至少sp5的补丁