自己用两个COMBO写一个不就行了吗
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：申请域名、雅安服务器托管、营销软件、网站建设、海林网站维护、网站推广。
何必用控件呢
##################################
Private Sub Form_Load()
For n = 1949 To 2008
Combo1.AddItem n
Next
Combo1.ListIndex = 0
For n = 1 To 12
Combo2.AddItem n
Next
Combo2.ListIndex = 0
End Sub
‘以如下的方式获取时间
Private Sub Command1_Click()
MsgBox "当前选择的是" Combo1.Text "年" Combo2.Text "月", vbInformation, "年月"
End Sub
希望对你有帮助
VB或vb.NET或其它语言的控件都无法显示阴历，因为国外不使用阴历，你只能在网上找找第三方控件
这个解答完全符合你的要求：
首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，记得是MonthView1控件，你自己排列好它们两个的位置即可，一切都按默认（不用改属性）。然后复制以下代码到form1的代码窗口里运行即可看到结果啦（如图）：
Private Sub Form_Load()
MonthView1.Visible = False
End Sub
Private Sub Text1_Click()
MonthView1.Visible = True
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Text1.Text = MonthView1.Year "-" MonthView1.Month "-" MonthView1.Day
MonthView1.Visible = False
End Sub
