Add items i listbox som kolonner

det kan man ikke, så må du bruge en Listview

Kan du give mig et eksempel der vil løse mit problem?

Private Sub Form_Load()
  ListView1.View = lvwReport
 
  With ListView1.ColumnHeaders
      .Add , , "Name", 1700
      .Add , , "Class", 3000
  End With
 
  ListView1.ListItems.Add.Text = "iName1"
  ListView1.ListItems.Item(1).SubItems(1) = "iClass1"
 
  ListView1.ListItems.Add.Text = "iName2"
  ListView1.ListItems.Item(2).SubItems(1) = "iClass2"
 
  ListView1.ListItems.Add.Text = "iName3"
  ListView1.ListItems.Item(3).SubItems(1) = "iClass3"
End Sub

Private Sub ListView1_Click()
Dim Navn1, Navn2 As String
  Navn1 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
  Navn2 = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)
MsgBox Navn1 & " - " & Navn2
End Sub

Finno tak for hjælpen!

selv tak