Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles NumericUpDown3.ValueChanged
        Dim obj_Temp As New DateTime(Me.NumericUpDown3.Value, _
        Me.NumericUpDown2.Value, Me.NumericUpDown1.Value)
        Dim obj_Diff As New TimeSpan
        obj_Diff = DateTime.Today.Subtract(obj_Temp)
        Me.NumericUpDown4.Value = obj_Diff.Days
    End Sub