Question

怎么点击TextBox时弹出日历，选择日期后日期输入到TextBox中

Answer 1

这个解答完全符合你的要求：
首先在默认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