vb.net Teleric Recurrence rule parser with boolean operations

 
Dim RecRule8 As RecurrenceRule = Nothing
If RecurrenceRule.TryParse(dtSchedule.Rows(0)("RecurrenceRule").ToString(), RecRule8) Then
    Dim days As RecurrenceDay = RecRule8.Pattern.DaysOfWeekMask
  chkWeekDays.Items(0).Selected =  ((days And RecurrenceDay.Sunday) = RecurrenceDay.Sunday)
  chkWeekDays.Items(1).Selected =  ((days And RecurrenceDay.Monday) = RecurrenceDay.Monday)
  chkWeekDays.Items(2).Selected =  ((days And RecurrenceDay.Tuesday) = RecurrenceDay.Tuesday)
  chkWeekDays.Items(3).Selected =  ((days And RecurrenceDay.Wednesday) = RecurrenceDay.Wednesday)
  chkWeekDays.Items(4).Selected =  ((days And RecurrenceDay.Thursday) = RecurrenceDay.Thursday)
  chkWeekDays.Items(5).Selected =  ((days And RecurrenceDay.Friday) = RecurrenceDay.Friday)
  chkWeekDays.Items(6).Selected =  ((days And RecurrenceDay.Saturday) = RecurrenceDay.Saturday)
End If