VisibleDays Property Example

The following code prints the dates of all days displayed on the calendar. To try the example, place a MonthView control on a form and paste the code into the Declarations section. Run the project and double-click the form.

Private Sub Form_DblClick()
   Dim i As Integer
   For i = 1 To 42
      Debug.Print MonthView1.VisibleDays(i)
   Next i
End Sub