Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Tolpartcompleadtime = maxnum * 7
        fml = txtleadtime.Text
        TolProd = Tolpartcompleadtime + fml
        RequestDate = Calendar1.SelectedDate.ToShortDateString()
        startMafDate = DateAdd(DateInterval.DayOfYear, -TolProd, RequestDate)
        lblTotal.Text = TolProd
        lbldate.Text = startMafDate
    End Sub

    Protected Sub Calendar2_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar2.SelectionChanged
        SOplaceorderdate = Calendar2.SelectedDate.ToShortDateString()
        If (DateTime.Compare(SOplaceorderdate, startMafDate) < 0) Then
            Label7.Text = TolProd
        Else
            t = 3 + Tolpartcompleadtime
            suggDate = DateAdd(DateInterval.DayOfYear, +t, SOplaceorderdate)
            Label7.Text = "Suggestion Date is:" & suggDate
            Label6.Text = abc
        End If
    End Sub