Listing A

Private Sub mcDateSelection_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles mcDateSelection.DateSelected
        MessageBox.Show("Calendar Today's Date: " & mcDateSelection.TodayDate & vbCrLf & _
                " Calendar Selected Start Date: " & mcDateSelection.SelectionStart() & vbCrLf & _
                " Calendar Selected End Date: " & mcDateSelection.SelectionEnd())
    End Sub