Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
       Label1.Text = Format(MonthCalendar1.SelectionStart, "yyyyMMdd")
       Label2.Text = Format(MonthCalendar1.SelectionEnd, "yyyyMMdd")
   End Sub