建议大家贴代码的时候用下百度编辑器右上角的代码语言高亮显示功能.
Private Sub combo2_Change() If combo2.ListIndex = 1 Then Text10.Visible = False DTPicker2.Visible = True Else DTPicker2.Visible = False Text10.Visible = True End if DoEvents() End Sub
写到单击事件中