Dim ValidDate As Long = DateUtils.SetDate(DateTime.GetYear(DateTime.Now), DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now))
For day = 1 To daysInMonth
Dim clr As Int = xui.Color_Black
If DateUtils.SetDate(year, month, day) < ValidDate Then
clr = xui.Color_Gray
End If
Dim row As Int = (day - 1 + dayOfWeekOffset) / 7
cvs.DrawText(day, (((dayOfWeekOffset + day - 1) Mod 7) + 0.5) * boxW, _
(row + 0.5)* boxH + vCorrection, daysFont, clr, "CENTER")
Next