求助(如何实现在文本框内输入时间格式的数据)

如果想要在文本框中输入时间,并且当输入非时间格式时为错操作,怎么实现?
--------------------编程问答-------------------- isdate(list1.text)=false or true
兄弟 --------------------编程问答-------------------- 使用DTPicker吧，方便
With DTPicker1
    .Format = 3
    .CustomFormat = "yyyy-mm-dd   hh:mm:ss"
End With

补充：VB ,  控件