Cargar un combo o una lista con un textbox multiline

pepe
15 de Enero del 2004
Hola, envio para todos el codigo de como se carga una lista o un combo a partir de un textbox con propiedad multiline.
Para ello se necesita un textbox con la propiedad multiline y una lista o un combo.
A continuacion pongo el codigo.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()

Dim elementos() As String
Dim i As Integer

If Text1.Text = "" Then
MsgBox "Escribe algo en el text"
Exit Sub
End If

Me.Combo1.Clear
elementos = Split(Text1.Text, vbCrLf, -1, vbBinaryCompare)

For i = LBound(elementos) To UBound(elementos)
If elementos(i) <> "" Then
Me.Combo1.AddItem elementos(i)
End If
Next i
Me.Combo1.Text = Me.Combo1.List(0)
End Sub

Un saludo a todos.