ya ví tu problema, lo que pasa es que estas colocando el
New antes de tu ciclo for, prueba de ésta forma:
Cita: Sub AddtoMonth(NewMonth As DateTime)
Dim Dm as datetime= new DateTime(2005,1,1)
Dim i as integer
For i=1 to 12
Dim C as new Calendar()
C.ID = "Calendar1" & i
C.TodaysDate = Dm
Panel1.Controls.Add(C)
Dm = Dm.AddMonths(1)
Next i
End Sub
Espero que ahora si te quede..
