Private Sub CopyWebsite()
 
	ThreadStartRefreshFileSize = New Thread(AddressOf StartUploadTimer)
	ThreadStartRefreshFileSize.SetApartmentState(ApartmentState.STA)
	ThreadStartRefreshFileSize.IsBackground = True
	ThreadStartRefreshFileSize.Start()
 
	For I As Integer = 0 To filesDetail.Count - 1
 
		fileData = My.Computer.FileSystem.GetFileInfo(filesDetail.Item(I).ToString)
		FtpConnect.Upload(filesDetail.Item(I).ToString, ftpDetail & "/" & _
  fileData.Name)
 
	Next
 
	ThreadStartRefreshFileSize.Abort()
 
End Sub
 
Private Sub StartUploadTimer()
	Dim Wert As Integer = 0
 
	Do
		Wert = FtpConnect.MessageString
		Me.SetText("Progress: " & Wert.ToString)
	Loop Until ProgressEnd
 
End Sub
 
Private Sub SetText(ByVal [text] As String)
 
	If Me.Label2.InvokeRequired Then
		Dim d As New SetTextCallback(AddressOf SetText)
		Me.Invoke(d, New Object() {[text]})
	Else
		Me.Label2.Text = [text]
		TextNeu = [text]
	End If
 
End Sub

Public Overridable Property MessageString() As Integer
	Get
		Return FileSizeProgress
	End Get
	Set(ByVal Value As Integer)
		FileSizeProgress += Value
	End Set
End Property
 
Public Function Upload(ByVal fi As FileInfo, Optional ByVal targetFilename As _
  String = "") As Boolean
	Using rs As Stream = ftp.GetRequestStream
 
	Do
		dataRead = fs.Read(content, 0, BufferSize)
		rs.Write(content, 0, dataRead)
		MessageString = dataRead
' Wenn ich hier den Inhalt von MessageString  in eine Datei schreibe ist alles 
' OK
	Loop Until dataRead < BufferSize
 
	rs.Close()
	End Using
End Function