Hola amigos, tengo otra duda y no puedo avanzar en mi proyecto.

Tengo en el form un List con varios nombres + un textbox libre""
lo que estoy tratando de hacer es q con un timer , los nombres del list se vallan pasando al textbox , pero no me funca ... solamente el primero
aca va el code que hice:

Private Sub Timer1_Timer()
If Label2.Caption = "1" Then
Text2.Text = "Hola"
ElseIf Text2.Text = "Hola2 Then
ElseIf Text2.Text = "Hola3" Then
Else
MsgBox "Errro"
End If
End Sub

salu2s ojala me ayuden

Agrega un list, un textbox y un timer; despues agrega este code

Código:

Option Explicit


Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = ""
List1.AddItem "Zitro"
List1.AddItem "X"
List1.AddItem "Y"
List1.AddItem "Z"
End Sub


Private Sub Timer1_Timer()
Dim iMaxList As Integer
Static iCont As Integer
Dim sVarAct As String


iMaxList = List1.ListCount - 1


iCont = iCont + 1
If iCont > iMaxList Then iCont = 0


List1.ListIndex = iCont


Text1.Text = List1.Text


End Sub

Espero que sea lo que estes buscando, aunque te esta mostrando lo del list se va poniendo azul en el list lo que se podria hacer es de que se guarde los elementos del list en un arrglo y de ahi se extraigan los datos...