เก็บค่าวันที่ที่เลือกก่อนหน้านี้ แล้วเอาค่าที่เก็บไว้มาแสดงทีหลัง เมื่อเกิดกรณี ไม่เป็นไปตามเงื่อนไข ทำไงดีคะ

Dim FromDate_, ToDate_ As Date
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimePicker1.Value = Now.Date
        DateTimePicker2.Value = Now.Date.AddDays(1)
        FromDate_ = DateTimePicker1.Value
        ToDate_ = DateTimePicker2.Value
End Sub
Private Sub DateTimePicker1_CloseUp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.CloseUp
        If DateTimePicker1.Value > DateTimePicker2.Value Then
            DateTimePicker1.Value = FromDate_
        End If
End Sub
Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        If DateTimePicker2.Value < DateTimePicker1.Value Then
            DateTimePicker2.Value = ToDate_
        End If
    End Sub