主题：关于日期控件的问题

呃，你选择的是日期，并不会自动填入时间。

TextChanged事件

Dim d As Date
If Date.TryParse(e.sender.text, d) Then
    If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
        e.sender.text = new Date(d.Year, d.Month, d.day, Date.Now.hour, Date.now.minute, Date.now.Second)
    End If
End If