Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
        Dim path As String
        Dim daba As New db
        If TextBox1.Text = "" Then
            MsgBox("Bitte zuerst die Datei auswählen!")
            Exit Sub
        End If
 
        path = Strings.Left(TextBox1.Text, InStrRev(TextBox1.Text, "\", -1))
 
        If File.Exists(path & "kd_turm.txt") Then
        Else
 
 
            Label1.Text = "Achtung: Datei wird kopiert!"
 
            Me.Cursor = Cursors.WaitCursor
            open_progress()  'hier wird die neue form mit laufender PBar 
            ' geöffnet
            File.Copy(TextBox1.Text, path & "kd_turm.txt")
            close_progress()  'und hier geschlossen
            Me.Cursor = Cursors.Default
 
            Label1.Text = ""
 
 
        End If
 
        Label1.Text = "Achtung: Daten werden verarbeitet!"
 
        Me.Cursor = Cursors.WaitCursor
        open_progress()  'hier wird die neue form mit laufender PBar geöffnet
        daba.daba(path)
        close_progress()  'und hier geschlossen
        File.Delete(path & "kd_turm.txt")
 
        Me.Cursor = Cursors.Default
 
        Label1.Text = ""
 
        MsgBox("Fertig!")
    End Sub
 
    Sub open_progress()
        Form2.Text = "Rechnung wird ausgeführt"
        Form2.Label1.Text = "läuft..."
        Form2.Show()
        Application.DoEvents()
    End Sub
    Sub close_progress()
        Application.DoEvents()
        Form2.Hide()
    End Sub

MFG
Sebastian
______________________________________________________________________________
______________________________________________________________________________

Die erfolgreichste Schleife:
.
.
...do until success...