Public Class DateCalc

	Private Sub DateCalc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim DateInterval As Integer = 7
	End Sub

	Private Sub DateChooser_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateChooser.ValueChanged
		If DateNumber.Text.Length > 0 Then
			DateInterval = CInt(DateNumber.Text)
		End If
		NextWeek.Text = DateChooser.Value.Add(TimeSpan.FromDays(7)).ToString()
	End Sub
End Class