리스트뷰 내용이동 질문

Private Sub Command1_Click()Dim i As Integer
For i = 0 To List1.ListCount - 1
vv.Text = List1.List(i)
Next iEnd Sub리스트뷰1에 텍스트들이 여러줄있는데요버튼을 누르면 순차적으로 1순위부터 맨위까지 vv텍스트란으로 이동되야하는데맨첫번째줄만 이동되고 나머지는 이동이 전혀안되네요.. 헬프미