关于showdialog的问题

VB.NET code

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged       If DateTimePicker1.Value.Date < Date.Today Then           *******                       If latereason1.ShowDialog = Windows.Forms.DialogResult.OK Then              ******                         Else              Me.DateTimePicker1.Value = DateTime.Now.Date           End If        End IfEnd Sub

我想选择datetimepicker日期的时候进行如上判断。latereason1有两个按钮“确定”和“取消”分别定义了System.Windows.Forms.DialogResult.OK和System.Windows.Forms.DialogResult.Cancle。现在的问题是我点了“取消”后，对话框总是要重新弹出一次，再点一次取消才能关闭，这是为什么？

[解决办法]
Else
Me.DateTimePicker1.Value = DateTime.Now.Date //这里又会触发 ValueChanged
End If
[解决办法]
同解。。
[解决办法]
latereason1.ShowDialog
只要调用这行，就会出现对话框。