谁能帮我用VB做个万年历

给你推荐一个.自己去下载吧.
http://www.codesky.net/showhtml/2734.htm

自己做更简单.在工程部件里面加载microsoft calendar control 9.0.然后工具箱就会有calendar控件.拖到form里面就OK了。一看就明白.
如果需要自己输入日期进行查询,就画三个文本框用于输入年月日,两个按扭,一个查询一个退出.
输入以下代码:
Private Sub Command1_Click()
If Text1.Text <> "" Then
nyear = CDbl(Text1.Text)
End If
If Text2.Text <> "" Then
nmonth = CDbl(Text2.Text)
End If
If Text3.Text <> "" Then
nday = CDbl(Text3.Text)
End If
Calendar1.Year = nyear
Calendar1.Month = nmonth
Calendar1.Day = nday
End Sub

Private Sub Command2_Click()
Unload Me
End Sub