'Controls und Binder deklarieren
 Dim WithEvents lboMarke As New ListBox With {.Parent = Me, .Left = 300}
 Dim bsmarke As New BindingSource
 Dim lboModell As New ListBox With {.Parent = Me, .Left = 500}
 Dim dvmodell As DataView
 
 
'einige Daten 
Dim dtb As New DataTable
with dtb
    .Columns.Add("Marke", GetType(String))
    .Columns.Add("Modell", GetType(String))
 
    .Rows.Add("VW", "Golf")
    .Rows.Add("VW", "Passat")
    .Rows.Add("AUDI", "100 GLS")
    .Rows.Add("AUDI", "80 LS")
end with
 
'Einrichtung der Datenbindung
bsmarke.DataSource = From r As DataRow In dtb Select r.Item("Marke") Distinct
 
lboMarke.DisplayMember = "Marke"
lboMarke.DataSource = bsmarke
 
dvmodell = New DataView(dtb)
dvmodell.RowFilter = "Marke = 'XXXX'"
 
lboModell.DisplayMember = "Modell"
lboModell.DataSource = dvmodell
 
 
'Das Event zur Anzeige der Modelle einer Marke bei Auswahl in Listbox:
Private Sub lboMarke_SelectedIndexChanged(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles lboMarke.SelectedIndexChanged
 
    If dvmodell IsNot Nothing Then
      If lboMarke.SelectedIndex >= 0 Then
        dvmodell.RowFilter = _
          "Marke = '" & (lboMarke.SelectedItem).ToString & "'"
      End If
    End If
End Sub