Dim req As FtpWebRequest = CType(WebRequest.Create("ftp://xx.com"), _
  FtpWebRequest)
req.UseBinary = False
req.Credentials = New NetworkCredential("test@sunmount.ch", "xx")
req.Method = WebRequestMethods.Ftp.UploadFile
Dim reqStrm As Stream = req.GetRequestStream()
Dim sw As New StreamWriter(reqStrm, System.Text.Encoding.ASCII)
sw.Write(True)
sw.Flush()
Dim resp As FtpWebResponse = CType(req.GetResponse(), FtpWebResponse)
resp.Close()
reqStrm.Close()