GetDayBold Event Example

The following code sets all Fridays to bold. To try the example, place a MonthView control on a form, and paste the code into the Declarations section. Then run the project.

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
   ' Presuming the start of the week is Sunday, set the variable intBold 
   ' to the fifth Friday).  Then set the State of 
   ' every Friday to True.
   Dim intBold As Integer
   intBold = mvwFriday
   While intBold < Count
      State(intBold - 1) = True
      intBold = intBold + 7
   Wend
End Sub