seme = seme & nomefile
            Dim clsRequest As System.Net.FtpWebRequest = _
        DirectCast(System.Net.WebRequest.Create("ftp://ftp.mysite.it/mysite.it/pubimages/" & seme), System.Net.FtpWebRequest)
            clsRequest.Credentials = New System.Net.NetworkCredential("admin", "pwd")
            clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

            Dim clsStream As System.IO.Stream = _
            clsRequest.GetRequestStream()
            clsStream.WriteTimeout = 5000
            clsStream.Write(System.IO.File.ReadAllBytes(OpenFileDialog1.FileName), 0, System.IO.File.ReadAllBytes(OpenFileDialog1.FileName).Length)