Sub Page_Load(ByVal sender as Object, ByVal e As EventArgs) Dim i As Integer For i=1 to 30 DateList.Items.Add(i) Next End Sub