Private Sub Form_Load()
    Me.Show: DoEvents
 
    With ListView1.ColumnHeaders
        .Add , , "Name"
        .Add , , "Alter"
        .Add , , "Wohnort"
    End With
 
    With ListView1.ListItems.Add.ListSubItems
        'Keine Ahnung
    End With
End Sub