With DTPicker1
.CustomFormat = "dd/mm/yyyy"
.CalendarForeColor = RGB(0, 0, 255)
.CalendarBackColor = RGB(255, 255, 200)
.CalendarTitleBackColor = RGB(0, 140, 0)
.CalendarTitleForeColor = RGB(255, 255, 255)
.CalendarTrailingForeColor = RGB(64, 64, 64)
.Font.Name = "arial"
.Font.Size = 9
End With