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