Private Sub Thread_CryptFile()
        'Try
        RaiseEvent OnStart(sFile)
 
        Dim NewFile As String = sFile.Substring(0, sFile.LastIndexOf(".")) & _
          "_Crypted" & sFile.Substring(sFile.LastIndexOf("."))
 
        Dim ReadStream As New FileStream(sFile, FileMode.Open, FileAccess.Read)
        Dim WriteStream As New FileStream(NewFile, FileMode.Create, _
          FileAccess.Write)
 
        Dim BytesZuLesen As Long = ReadStream.Length
        Dim Progress As Long = 0
        Dim Puffer(10239) As Byte
        Dim n As Integer = 0
 
        Do Until BytesZuLesen <= 0
 
            If boolCryptBeenden = True Then
 
                ReadStream.Flush()
                ReadStream.Close()
 
                WriteStream.Flush()
                WriteStream.Close()
 
                System.IO.File.Delete(NewFile)
 
                boolCryptBeenden = False
                RaiseEvent OnCancel()
 
                Exit Sub
 
            End If
 
            n = ReadStream.Read(Puffer, 0, 10240)
 
            WriteStream.Write(Puffer, 0, n)
 
            BytesZuLesen = BytesZuLesen - n
            Progress = Progress + n
 
            RaiseEvent OnUpdateProgress(Progress)
 
        Loop
 
        ReadStream.Flush()
        ReadStream.Close()
 
        WriteStream.Flush()
        WriteStream.Close()
 
        RaiseEvent OnStop()
        'Catch ex As Exception
        'RaiseEvent OnError(ex)
        'End Try
    End Sub

System.Threading.Thread