'FTP File Upload
        ' FTP-Server
        Dim sFTPHost As String = "ftp://"domain.de/data/"

        ' Benutzername und Kennwort für den Server-Zugriff
        Dim sUserName As String = sServerName
        Dim sPassword As String = "password"

        'Setze Zugriffsrechte
        upload1.Credentials = New Net.NetworkCredential(sUserName, sPassword)

        'Upload
        Dim serverUri As New Uri(sFTPHost & vName)
        upload1.UploadFileAsync(serverUri, sLocalPath)

Imports System.Net
Imports System.Threading
Imports System.IO
Imports System.Diagnostics
Imports System.Windows.Forms


Public Class FtpState
    Private wait As ManualResetEvent
    Private m_request As FtpWebRequest
    Private m_fileName As String
    Private m_operationException As Exception = Nothing
    Private status As String

    Public Sub New()
        wait = New ManualResetEvent(False)
    End Sub

    Public ReadOnly Property OperationComplete() As ManualResetEvent
        Get
            Return wait
        End Get
    End Property

    Public Property Request() As FtpWebRequest
        Get
            Return m_request
        End Get
        Set(ByVal value As FtpWebRequest)
            m_request = value
        End Set
    End Property

    Public Property FileName() As String
        Get
            Return m_fileName
        End Get
        Set(ByVal value As String)
            m_fileName = value
        End Set
    End Property
    Public Property OperationException() As Exception
        Get
            Return m_operationException
        End Get
        Set(ByVal value As Exception)
            m_operationException = value
        End Set
    End Property
    Public Property StatusDescription() As String
        Get
            Return status
        End Get
        Set(ByVal value As String)
            status = value
        End Set
    End Property
End Class

Public Class AsynchronousFtpUpLoader
    Shared LblStatus As Label
    Shared txtulStat As TextBox
    Shared txtulCpl As TextBox
    Shared Progress As ProgressBar
    Public Delegate Sub UpdateTextCallback(ByVal text As String)
    Public Delegate Sub UpdateProgressCallback(ByVal bytesRead As Long, ByVal bytesMaximum As Long)

    '''' <summary>Length of file to upload</summary>
    Shared fileLength As Long

    Public Shared Sub UpdateText(ByVal text As String)
        LblStatus.Text = text
    End Sub

    Public Shared Sub UpdateProgress(ByVal bytesRead As Long, ByVal bytesMaximum As Long)
        Progress.Value = CInt(Math.Truncate(bytesRead * (CDbl(100) / CDbl(bytesMaximum))))
    End Sub




    
    Public Shared Sub Upload(ByVal target As Uri, ByVal fileName As String, ByVal username As String, ByVal password As String, ByVal lblStatus__1 As Label, ByVal progress__2 As ProgressBar)
        LblStatus = lblStatus__1
        fileLength = New FileInfo(fileName).Length
        If LblStatus IsNot Nothing Then
            LblStatus.Invoke(New UpdateTextCallback(AddressOf UpdateText), New Object() {"upload ... / " & fileLength.ToString()})
        End If

        Progress = progress__2
        If Progress IsNot Nothing Then
            Progress.[Step] = 1
            Progress.Minimum = 0
            Progress.Maximum = 100
            Progress.Visible = True
            Progress.Invoke(New UpdateProgressCallback(AddressOf UpdateProgress), New Object() {5, fileLength})
        End If

        ' Create a Uri instance with the specified URI string.
        ' If the URI is not correctly formed, the Uri constructor will throw an exception.
        Dim waitObject As ManualResetEvent

        Dim state As New FtpState()
        Dim request As FtpWebRequest = DirectCast(WebRequest.Create(target), FtpWebRequest)
        request.UseBinary = True
        request.Method = WebRequestMethods.Ftp.UploadFile

        ' This example uses anonymous logon.
        ' The request is anonymous by default; the credential does not have to be specified. 
        ' The example specifies the credential only to control how actions are logged on the server.
        request.Credentials = New NetworkCredential(username, password)

        ' Store the request in the object that we pass into the asynchronous operations.
        state.Request = request
        state.FileName = fileName

        ' Get the event to wait on.
        waitObject = state.OperationComplete

        ' Asynchronously get the stream for the file contents.
        request.BeginGetRequestStream(New AsyncCallback(AddressOf EndGetStreamCallback), state)

        Dim done As Boolean = False
        Do
            done = waitObject.WaitOne(200, True)
            Application.DoEvents()
        Loop While Not done

        ' The operations either completed or threw an exception.
        If state.OperationException IsNot Nothing Then
            Throw state.OperationException
        End If
    End Sub

    Private Shared Sub EndGetStreamCallback(ByVal ar As IAsyncResult)
        Dim state As FtpState = DirectCast(ar.AsyncState, FtpState)

        Dim requestStream As Stream = Nothing
        ' End the asynchronous call to get the request stream.
        Try
            requestStream = state.Request.EndGetRequestStream(ar)
            ' Copy the file contents to the request stream.
            Const bufferLength As Integer = 2048
            Dim buffer As Byte() = New Byte(bufferLength - 1) {}
            Dim count As Integer = 0
            Dim readBytes As Integer = 0
            Dim stream As FileStream = File.OpenRead(state.FileName)
            Do
                readBytes = stream.Read(buffer, 0, bufferLength)
                requestStream.Write(buffer, 0, readBytes)
                count += readBytes
                If LblStatus IsNot Nothing Then
                    LblStatus.Invoke(New UpdateTextCallback(AddressOf UpdateText), New Object() {count.ToString() & " / " & fileLength.ToString()})
                    'txtulStat.Invoke(New UpdateTextCallback(AddressOf UpdateText), New Object() {count.ToString()})
                    'txtulCpl.Invoke(New UpdateTextCallback(AddressOf UpdateText), New Object() {fileLength.ToString()})
                End If
                If Progress IsNot Nothing Then
                    Progress.Invoke(New UpdateProgressCallback(AddressOf UpdateProgress), New Object() {CLng(count), fileLength})
                End If
            Loop While readBytes <> 0

            ' IMPORTANT: Close the request stream before sending the request.
            
            requestStream.Close()
            
            ' Asynchronously get the response to the upload request.
            state.Request.BeginGetResponse(New AsyncCallback(AddressOf EndGetResponseCallback), state)
            ' Return exceptions to the main application thread.
        Catch e As Exception
            'AsynchronousFtpUpLoader.txtStatus.AppendText("Could not get the request stream.");
            state.OperationException = e
            state.OperationComplete.[Set]()
            Return
        End Try
    End Sub

    ' The EndGetResponseCallback method completes a call to BeginGetResponse.
    Private Shared Sub EndGetResponseCallback(ByVal ar As IAsyncResult)
        Dim state As FtpState = DirectCast(ar.AsyncState, FtpState)
        Dim response As FtpWebResponse = Nothing
        Try
            response = DirectCast(state.Request.EndGetResponse(ar), FtpWebResponse)
            response.Close()
            state.StatusDescription = response.StatusDescription
            ' Signal the main application thread that the operation is complete.
            state.OperationComplete.[Set]()
            ' Return exceptions to the main application thread.
        Catch e As Exception
            LblStatus.Invoke(New UpdateTextCallback(AddressOf UpdateText), New Object() {e.Message})

            state.OperationException = e
            state.OperationComplete.[Set]()
        End Try
    End Sub
End Class

AsynchronousFtpUpLoader.Upload(sFTPUri, FilePath, Username, Password, lblProgress, ProgressBar1)