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 
   Dim t As String = cbo.Text 
   cbo.DataSource = dv_all
   cbo.Text = t:  'Hier noch einbauen: Ist Zeile als 
                  'gelöscht markiert: nicht zuweisen 
   ResetValue = t 'ResetWert speichern
   btnReset.Enabled = True 'Reset-Button aktivieren
End Sub

Private Sub btnReset_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnReset.Click
    cbo.Text = ResetValue
    btnReset.Enabled = False
End Sub