Public Class frmComboJoke
 
  Dim WithEvents cbo As New ComboBox _
    With {.Parent = Me, .Top = 20, .Left = 20, .Width = 200}
  Dim dt As New DataTable
  Dim dv_total, dv_all As DataView
 
  Private Sub frmComboFake_Load(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) Handles MyBase.Load
 
    'Testdaten erstellen
    dt.Columns.Add("Nicht löschen", GetType(String))
    dt.Columns.Add("Gelöscht", GetType(Boolean))
    For i As Integer = 0 To 9
       If i Mod 2 = 0 Then
          dt.Rows.Add("Nummer " & CStr(i), False)
       Else
          dt.Rows.Add("Nummer " & CStr(i), True)
       End If
    Next i
    dt.AcceptChanges()
 
    'Zwei Dataviews erstellen
    dv_all = New DataView _
    (dt, "Gelöscht = false", "", DataViewRowState.OriginalRows)
    dv_total = New DataView(dt)
 
    'anzuzeigende Spalte der Datatable auf Combo zuweisen
    cbo.DisplayMember = "Nicht löschen"
  End Sub
 
  Private Sub DropDown(ByVal sender As Object, _
     ByVal e As System.EventArgs) Handles cbo.DropDown
     'Dropdown wird geöffnet - an View für Nicht-Gelöscht binden 
     cbo.DataSource = dv_all
  End Sub
 
  Private Sub DropDownClosed(ByVal sender As Object, _
                  ByVal e As System.EventArgs) Handles cbo.DropDownClosed
     With cbo
       'Dropdown wird geschlossen - gewählten Text notieren
       Dim text As String = _
           CStr(CType(cbo.SelectedItem, DataRowView).Item("Nicht löschen"))
       'Combobox an alle Sätze binden und gewählten Text eintragen
       .DataSource = dv_total : .Text = text
     End With
  End Sub
End Class