Вывод 2 списков данных, но их организация в VB

Проблема в том, что вы используете неправильный элемент управления для работы. Вам нужен элемент управления, который может отображать несколько столбцов данных для каждого элемента в списке. Элемент управления ListBox не подходит для этого, поскольку он предназначен только для отображения одного столбца.

Предполагая, что это проект WinForm, а не WPF, я бы рекомендовал использовать либо элемент управления DataGridView, либо элемент управления ListView. Любой из этих элементов управления может отображать несколько столбцов, хотя элемент управления ListView отображает только несколько столбцов, а его свойство View имеет значение Details. Поскольку я сам неравнодушен к элементу управления ListView, я приведу вам пример, использующий его :)

Сначала добавьте в форму элемент управления ListView. Затем установите для свойства View элемента управления в конструкторе значение Details. Затем нажмите кнопку, чтобы изменить свойство Columns элемента управления. Добавьте две колонки. Затем используйте такой код, чтобы заполнить список:

Dim item As ListViewItem = ListView1.Items.Add("Premium")
item.SubItems.Add("400")
item = ListView1.Items.Add("")
item.SubItems.Add("500")
item = ListView1.Items.Add("")
item.SubItems.Add("600")
item = ListView1.Items.Add("")
item.SubItems.Add("700")
item = ListView1.Items.Add("Cover")
item.SubItems.Add("TPO")
item = ListView1.Items.Add("")
item.SubItems.Add("TPFT")

Если, как кажется, текст для первого столбца хранится в поле со списком, тогда текст для второго столбца сохраняется в текстовом поле с разделителями-запятыми, тогда вы можете сделать что-то вроде этого:

For Each cbo As ComboBox In MyComboBoxes
    Dim first As Boolean = True
    For Each value As String In GetTextBoxForComboBox(cbo).Text.Split(",")
        Dim item As ListViewItem = Nothing
        If first Then
            item = ListView1.Items.Add(cbo.Text)
        Else
            item = ListView1.Items.Add("")
        End If
        item.SubItems.Add(value)
        first = False
    Next
Next

Конечно, вместо того, чтобы иметь такой метод, как GetTextBoxForComboBox, было бы лучше иметь класс, который хранит пары элементов управления, например:

Private Class ControlPair
    Public Property Cbo As ComboBox
    Public Property Txt As TextBox
End Class

Затем вы можете просто просмотреть их следующим образом:

For Each pair As ControlPair In MyPairs
    ' ...
    For Each value As String In pair.Txt.Text.Split(",")
        ' ...
        ListView1.Items.Add(pair.Cbo.Text)
        ' ...
    Next
Next

For Each - удобный синтаксис для перебора всех элементов объекта IEnumerable (в основном любого списка, такого как Array или List(Of T)). Итак, в этом случае MyPairs должен быть списком из ControlPair объектов, например:

Dim MyPairs As New List(Of ControlPair)()
Dim pair1 As New ControlPair()
pair1.Cbo = ComboBox1
pair1.Txt = TextBox1
MyPairs.Add(pair1)
Dim pair2 As New ControlPair()
pair2.Cbo = ComboBox2
pair2.Txt = TextBox2
MyPairs.Add(pair2)

Или, если вы не хотите создавать свой собственный класс, вы можете просто использовать Tuple(Of ComboBox, TextBox).

На самом деле, после просмотра ваших снимков экрана кажется, что элемент управления TreeView может быть более подходящим. Вы можете показать каждое значение поля со списком как узел корневого уровня, а затем внутри каждого узла корневого уровня будет дочерний узел для каждого из значений с разделителями в текстовом поле, например:

• Premium
  • 400
  • 500
  • 600
  • 700
• Cover
  • TPO
  • TPFT

Никогда не полагайтесь на пробелы или пустые строки при форматировании. Напишите правильную разметку.

<form>
<label>Premium</label>
<select name="premium">
    <option>400</option>
    <option>500</option>
    <option>600</option>
    <option>700</option>
</select><br><br>
<label>Cover</label>
<select name="cover">
    <option>TPO</option>
    <option>TPFT</option>
    <option>COMP</option>
</select>
</form>