Visual Basic.NET - Ayuda con creacion formulario tiempo ejecucion

Hola a todos, tengo un problema urgentee a ver si alguien me puede ayudar:
Tengo que crear un formulario en tiempo de ejecución con una etiqueta, un textBox y un ComboBox. Cuando selecciono un tema del ComboBox, deberá quedar escrito en el ComboBox, pero no sé como hacerlo. Os pongo el código del fórmulario a ver que puedo estar haciendo mal:
Private Sub CentrosPrincipales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Declaramos la variable contador del bucle Para
Dim I As Byte
' Declaramos la variable contador del número de controles a crear
Dim intNumControles As Byte = CentrosP
' Iniciamos el bucle Para
For I = 0 To intNumControles - 1
' Declaramos el objeto TextBox
Dim MiControl As New TextBox
'Declaramos la etiqueta Label
Dim MiControl1 As New Label
Dim MiControl2 As New ComboBox
' Le asignamos un nombre al control
MiControl.Name = "txt1"
'Le asignamos un nombre a la etiqueta
MiControl1.Name = "Etiqueta"
MiControl2.Name = "UnidadObra"
' Utilizamos la propiedad Tag para almacenar ahí el valor del control de la matriz virtual
MiControl.Tag = I
MiControl1.Tag = I
MiControl2.Tag = I


' Le asignamos un tamaño en el Formulario Windows
MiControl.Size = New Size(100, 50)
MiControl1.Size = New Size(400, 30)
MiControl2.Size = New Size(450, 30)
' Le asignamos una posición en el formulario Windows
MiControl.Location = New Point(200, 40 * (I + 1))
MiControl1.Location = New Point(50, 40 * (I + 1))
MiControl2.Location = New Point(250, 40 * (I + 1))
' Le cambiamos la propiedad Text2
MiControl1.Text = "Centro Principal " + (I + 1).ToString() + ":"

MiControl2.Items.Add("Patatas")
MiControl2.Items.Add("Manzanas")
MiControl2.Items.Add("Pedidos")

' Añadimos el control al Formulario
Me.Controls.Add(MiControl)
Me.Controls.Add(MiControl1)
Me.Controls.Add(MiControl2)


AddHandler MiControl2.SelectedIndexChanged, AddressOf UnidadObraSelectedIndexChanged
Next
End Sub
Public Sub UnidadObraSelectedIndexChanged(ByVal Sender As Object, ByVal e As System.EventArgs)
' Mostramos un Mensaje

End Sub