Список

[DimR]

Sub ListBoxes()

Dim str(5) As String, strInfo(5) As String, surn(5) As Boolean
Dim i As Byte, idCount As Byte
str(0) = "1"
str(1) = "2"
str(2) = "3"
str(3) = "4"
str(4) = "5"
str(5) = "6"

idCount = 0
UserForm2.ListBox1.Clear
UserForm1.ListBox1.Clear
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
With UserForm2.ListBox1
For i = 0 To 5
.AddItem str(i)
surn(i) = False
Next i
.ListIndex = 0
.MultiSelect = fmMultiSelectExtanded
End With

If UserForm2.ListBox1.ListCount > 0 Then
For i = 0 To UserForm2.ListBox1.ListCount - 1
surn(i) = UserForm2.ListBox1.Selected(i)
If surn(i) Then
strInfo(idCount) = str(i)
UserForm1.ListBox1.AddItem strInfo(idCount)
idCount = idCount + 1
End If
Next i
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
UserForm1.ListBox1.MultiSelect = fmMultiSelectExtanded
End If
End Sub

Не могу понять, почему на первой форме отображается первый элемент списка вне зависимости от того,что я выбираю.

[SAS888]

почему на первой форме отображается первый элемент списка вне зависимости от того,что я выбираю.

Обратите внимание на фрагмент Вашего кода

For i = 0 To UserForm2.ListBox1.ListCount - 1
    surn(i) = UserForm2.ListBox1.Selected(i)
    If surn(i) Then
        strInfo(idCount) = str(i)
        UserForm1.ListBox1.AddItem strInfo(idCount)
        idCount = idCount + 1
    End If
Next i

Где строка surn(i) = UserForm2.ListBox1.Selected(i) присвоит значение элементу массива только в том случае, если переменная i совпадает с номером выбранного элемента в UserForm2.ListBox1. Этот элемент выбирается Вами ранее в строке

.ListIndex = 0

При всех других значениях переменной i, условие If surn(i) Then... выполняться не будет. Следовательно, UserForm1.ListBox1 будет содержать всего 1 значение.
Попробуйте 0 заменить на 1 или 2 и т.д. до значения UserForm2.ListBox1.ListCount - 1. В результате, в UserForm1.ListBox1 будет отображаться только 1 значение, определенное в строке .ListIndex = ... Не знаю, как Вам нужно, но Ваш код так написан.

[DimR]

К сожалению,от замены чисел только хуже - пункты перестают отображаться вообще.F8 показывает ошибку в цикле, которую неизвестно как исправить...

[SAS888]

К сожалению,от замены чисел только хуже - пункты перестают отображаться вообще.F8 показывает ошибку в цикле, которую неизвестно как исправить...

Я создал 2 формы с LisnBox-ами, выполнил Ваш код, попробовал поизменять значение в строке .ListIndex = 0, получил результат о котором написал. Ошибок нет (хотите пример файла?). Ищите их в другом месте.

Лучше скажите, что Вам нужно сделать в итоге?