Puedes apoyarte con la propiedad SelectedDate, sería cosa de que juegues un poco con las fechas para seleccionar el día que necesitas.
Ejemplo:
Cita: For i = 1 To 12
Dim C As New Calendar
C.ID = "Calendar1" & i
C.TodaysDate = Dm
C.SelectedDate = Dm.AddDays(12)
Panel1.Controls.Add(C)
Dm = Dm.AddMonths(1)
Next i
Donde AddDays le vas a indicar el número del día que deseas seleccionar, recuerda que por default empieza en el día 1, es decir que si colocas AddDays(12) se colcoará en el día 13.
Es eso lo que necesitas..??
Salu2
