主题：窗口中如何计算时间

出生日期控件ValueChanged事件代码：

If e.Form.Controls("DateTimePicker1").Value = "" Then
    MessageBox.Show("请录入访问日期","提示")
    Return
End If
Dim d,d1 As Date
d = e.Form.Controls("DateTimePicker1").Value
d1 = e.Sender.Value
If d1 > d Then
    MessageBox.Show("出生日期不能早于访问日期","提示")
End If