Olá a todos,

To precisando  Rolar item por item de um ListBox e a cada vez que um novo item muda ele deve aparecer em um Textbox...

 

 

Valeu!!!

sub Click_listbox()

  textbox = list.selected.text

end sub

 

é pq eu estou sem o VB aqui no meu trabalho, mas se eu não me engano está tudo conforme vc pediu...

Talvez o código abaixo possa te ajudar...

 

Dim i As Integer
  Do While i < 10000
    List1.AddItem i
    List1.Selected(List1.ListCount - 1) = True
    i = i + 1
  Loop
End Sub

 

[]´s

Vinícius

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub