Public Class Hauptfenster
 
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'für die 
    ' Testschleife
 
 
    Private Sub BtStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Btstart.Click
        Dim tempPath As String
 
 
        tempPath = IIf(Environ$("tmp") <> "", Environ$("tmp"), Environ$("temp"))
        lbltemp.Text = "Temp: " & tempPath
 
        'Sicherheit Wenn Verzeichnis nicht = ...
        If tempPath.ToLower.Contains("\temp") Then 
            MessageBox.Show("enthällt \temp")
            BackgroundWorker1.RunWorkerAsync()
 
 
        Else
            MsgBox("Programmfehler:" & vbCrLf & _
                   "Pfad zu den Temporären Dateien fehlerhaft." & vbCrLf & _
                   "Programm wird nicht fortgesetzt.", _
                   vbExclamation, "Programmfehler!")
 
        End If
    End Sub
 
    Sub löschen()
        Dim test As Long
 
            Do While test <= 99
            Call Sleep(100)
            test += 1
 
 
            BackgroundWorker1.ReportProgress(test) 'Achtung! Nicht über 100% 
            ' kommen!!!
            If BackgroundWorker1.CancellationPending = True Then
                BackgroundWorker1.ReportProgress(100) 'status auf 100%
                Exit Sub
 
            End If
        Loop
 
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Call löschen()
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal _
      e As System.ComponentModel.ProgressChangedEventArgs) Handles _
      BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
 
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
      ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      BackgroundWorker1.RunWorkerCompleted
        MsgBox("habe fertig")
    End Sub
 
    Private Sub BtAbbruch_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtAbbruch.Click
        BackgroundWorker1.CancelAsync()
    End Sub
End Class