Avalanched
Legacy Member
Code:
Dim weekend() As Date = Nothing 'datums
Dim n As Integer = 0
For Each oDate As clsAgenda In clsAgendaDA.getAgenda
ReDim weekend(n)
weekend(n) = oDate.Dag
n += 1
Next
mncAgenda.BoldedDates = weekend
dit is de code .. de datums haalt hij perfect op. maar hij laat in men kalender alleen maar de laatste datum zien dat in de weekend array zit :/

