Перенос выбранных строк из одного ListBox в другой

[MiN]

Помогите с программой. По ножатию кнопки, выделенные строки из одного ListBox переносятся в другой ListBox. А то чтото у меня не получается:

Код: Выделить всё

Private Sub CommandButton1_Click()
    For i = 1 To ListBox1.ListCount
        If ListBox1.Selected(i - 1) = True Then
            ListBox2.AddItem (ListBox1.ListIndex)
        End If
    Next
    ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

[corgi]

это потому что надо так написать
ListBox2.AddItem (ListBox1.List(ListBox1.ListIndex))

[MiN]

Спаибо! Помогло...

[SUPchik]

а кто-нибудь подскажет решение,если в ListBox данные состоят из нескольких столбцов?

[Viper]

а кто-нибудь подскажет решение,если в ListBox данные состоят из нескольких столбцов?

А в чем разница? Это, во-первых, а, во-вторых, ты на дату предыдущего поста смотрел?