Dim Li As ListItem
 
Private Sub Command1_Click()
 
For N = 1 To 10
If ListView1.ListItems(N).Text <> "" Then
Li.ListSubItems.Add , , Text1
Exit For
End If
Next
 
End Sub
 
Private Sub Form_Load()
ListView1.View = lvwReport
For N = 1 To 10
ListView1.ColumnHeaders.Add N, , "Spalte " & Str(N), 900, 0
Next
Set Li = ListView1.ListItems.Add(, , Text1)
End Sub