'Beispieldaten in Tabellenspalte 
  Dim dt As New DataTable
  dt.Columns.Add("Date", GetType(DateTime))
  dt.Rows.Add(New Date(2024, 1, 1))
  dt.Rows.Add(New Date(2024, 1, 5))
  dt.Rows.Add({Nothing})
  dt.Rows.Add(New Date(2024, 1, 15))
 
  'Datumswerte fett darstellen (mc ist ein MonthCalendar)
  For r As Integer = 0 To dt.Rows.Count - 1
      If Not IsDBNull(dt.Rows(r)("date")) Then
          mc.AddBoldedDate(DirectCast(dt.Rows(r)("Date"), Date))
      Else
          'was auch immer
 
      End If
  Next r
 
  mc.UpdateBoldedDates()