Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
UpdateLabels(DateTimePicker2)
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
UpdateLabels(DateTimePicker1)
End Sub
Sub UpdateLabels(ByVal Dto As DateTimePicker)
qualtxt.Text = Dto.Value.Date
twosoontxt.Text = Dto.Value.Date.AddDays(25)
twolatetxt.Text = Dto.Value.Date.AddDays(35)
threesoontxt.Text = Dto.Value.Date.AddDays(55)
threelatetxt.Text = Dto.Value.Date.AddDays(65)
foursoontxt.Text = Dto.Value.Date.AddDays(85)
fourlatetxt.Text = Dto.Value.Date.AddDays(95)
End Sub