Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As _
  Integer, State() As Boolean)
  Dim i As Long
  Dim u As Long
 
  While Day(DateAdd("d", i, StartDate)) <> 1
    i = i + 1
  Wend
 
  For u = 1 To 7
    State(i + u - 1) = True
  Next u
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de