Question

vb中 combobox控件下拉生成的是日期图表 如下图：

弄成这样的形式，VB中怎么写代码？

Answer 1

下面的是一个日历控件，默认设置 .Visible = False
然后，利用事件：
Private Sub Combo1_GotFocus()
MonthView1.Visible = True
End Sub

Private Sub Combo1_LostFocus()
MonthView1.Visible = False
End Sub