crear controles

[Aquaventus]

Por ejemplo creo un formulario y en el arrastro un boton y datetimepicker(de formato short) y un listbox :

Creo 2 variables

Código vb:

Dim existe As Boolean = False
Dim lista As New ListBox
 

En el metodo load del formulario agrego datos a la variable lista :

Código vb:

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lista.Items.Add("01/07/2011")
        lista.Items.Add("02/07/2011")
        lista.Items.Add("03/07/2011")
        lista.Items.Add("04/07/2011")
    End Sub
 

En el evento Click del boton este codigo :

Código vb:

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To lista.Items.Count - 1
            If (lista.Items(i).Equals(DateTimePicker1.Text)) Then
                existe = True
            End If
        Next
        If existe = False Then
            ListBox1.Items.Add(DateTimePicker1.Text)
            lista.Items.Add(DateTimePicker1.Text)
        End If
        existe = False
    End Sub
 

Espero lo veas y lo entiendas estimado para que tengas idea de como resolver tu problema y sobre lo que te comentaba antes. Saludos!.