Cita:
Iniciado por Kitty_05 
La verdad si necesito que sea en text boxs, me pueden ayudar :( .. la verdad es entre tantas cosas que he hecho algunas me han funcionado pero no del todo como kiero ..
el asunto es q es necesrio que sea en textbox
Prueba con esto:
Código:
Dim Looping As Long
For Looping = 0 To ArtProvs.ListCount - 1
If ArtProvs.Selected(Looping) Then
NewText ArtProvs.List(Looping)
End If
Next Looping
Código:
Sub NewText(ByVal Text As String)
'Cargamos un nuevo TextBox
Load Text1(Text1.Count)
'Ubicamos el TextBox debajo del último
Text1(Text1.Count - 1).Left = Text1(Text1(0).Left)
Text1(Text1.Count - 1).Top = Text1(Text1.Count - 2).Top + Text1(Text1(0).Height)
'Mostramos el TextBox cargado
Text1(Text1.Count - 1).Text = Text
Text1(Text1.Count - 1).Visible = True
End Sub
Debes tener un TextBox llamado Text1, debe ser una matriz.