Private Sub Kontovorgaben()
    With sevZlgArt
        ' Style: DrpDownList
        .Style = rsDropDownList
 
        ' 2 Spalten erstellen
        .ColumnAdd , "id", 500
        .ColumnAdd , "Bezeichnung", 2500
 
        ' Listbox mit Daten füllen
        .AddItem "0" & vbTab & " - keine Zahlungsweise"
        .AddItem "B" & vbTab & " - Bar"
        .AddItem "E" & vbTab & " - Einzugsermächtigung"
        .AddItem "N" & vbTab & " - Nachnahme"
        .AddItem "R" & vbTab & " - Rechnungstellung"
        .AddItem "V" & vbTab & " - Vorkasse"
        .AddItem "C" & vbTab & " - Check"
        .AddItem "A" & vbTab & " - Anzahlung"
        .AddItem "K" & vbTab & " - Kreditkarte"
 
        ' 2. Spalte an die Textbox binden
        .DisplayColumn = 2
 
        ' automatisches Sortieren
        .SortColumn = 2
        .Sorted = True
 
        ' AutoComplete aktivieren
        .AutoComplete = True
 
        .ListIndex = 1
        .Tag = .SubItem(.ListIndex, 1)
    End With
End Sub