Private Sub upd_Progress_Daten_loeschen(ByVal Meldung As String, ByVal cnt As _
   Integer)
        pgb_delete.Value += cnt
        lbl_Value.Text = Meldung
        lbl_Value.Refresh()
        System.Threading.Thread.Sleep(15)
    End Sub

........
        pgb_delete.Maximum = CInt(BS_Eingang.Count)
        pgb_delete.Minimum = 0
        pgb_delete.Value = 0
 
        System.Threading.Thread.Sleep(2000)
 
        For i As Integer = BS_Eingang.Count - 1 To 0 Step -1
            'In typisierten Bindingsourcen kann das Casten entfallen
            DirectCast(BS_Eingang(i), DataRowView).Delete()
 
            upd_Progress_Daten_loeschen("Daten werden gelöscht", 1)
        Next i