Dim filePath As String = lbl_file.Text
        Dim slashPosition As Integer = filePath.LastIndexOf("\")
        Dim filenameOnly As String = filePath.Substring(slashPosition + 1)


        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://url.com/public_html/windows/" & filenameOnly), System.Net.FtpWebRequest)
        request.Credentials = New System.Net.NetworkCredential("file", "password")
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim path As String = lbl_file.Text

        Dim file() As Byte = System.IO.File.ReadAllBytes(path)

        Dim strz As System.IO.Stream = request.GetRequestStream()



        For offset As Integer = 0 To file.Length Step 1024
            lbl_progress.Text = offset.ToString() + " bytes sent"
            Dim chunkSize As Integer = file.Length - offset - 1
            If chunkSize > 1024 Then chunkSize = 1024
            strz.Write(file, offset, chunkSize)
        Next
        lbl_progress.Text = file.Length + " bytes sent"

        strz.Close()
        strz.Dispose()

        MsgBox(path)