DoDolock

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'Dim c As New Calendar
Dim c As Control = Page.LoadControl("DatePicker.ascx")
PlaceHolder1.Controls.Add(c)
End Sub