Private Sub Список86_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i1 As Integer
i1 = list1.ListIndex ОШИБКА
If list1 = "SK-M410XP/SO(3,6)" Or list1 = "TCC-3232H/1H" Then
list2 = AddItem.list1.list(i).i2
i2 = i2 + 1
list1.RemoveItem i
End If
End Sub

ПОЧЕМУ ВОЗНИКАЕТ ОШИБКА? Я НЕ МОГУ ПОНЯТЬ
MS ACCESS: МНЕ НУЖНО СОСТАВИТЬ 2 СПИСКА, ИЗ ОДНОГО ПЕРЕКИНУТЬ ВЫБРАННЫЕ ЭЛЕМЕНТЫ В ДРУГОЙ!? КАК?
МОЖЕТ НЕ ТЕ СПИСКИ....