por favor leer un manual que no cuesta nada,
, inmaginate las preguntas qeu van a venir si no lo lees...

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Dim Agente As IAgentCtlCharacterEx
Agent1.Characters.Load "merlin", "C:\WINDOWS\msagent\chars\merlin.acs"
Set Agente = Agent1.Characters("merlin")
Agente.LanguageID = &HC0A
Agente.Show
Agente.Speak "Hola"
End Sub
Option Explicit
Private Sub Command1_Click()
Dim vDatos() As String
Dim Item As ListItem
Dim i As Long
vDatos = Split(Text1.Text, vbNewLine)
For i = LBound(vDatos) To UBound(vDatos)
Set Item = ListView1.ListItems.Add(, , vDatos(i))
Next
End Sub
Private Sub Form_Load()
Text1.Text = "Item1" & vbNewLine & "Item 2" & vbNewLine & "Item 3"
With ListView1
.ColumnHeaders.Add , , "Datos Del TextBox"
.View = lvwReport
End With
End Sub