Dim rct As Rectangle = Screen.PrimaryScreen.Bounds
Dim bmp As New Bitmap(rct.Width, rct.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(0, 0, 0, 0, rct.Size)
g.Dispose()
bmp.Save("c:\source.png", Imaging.ImageFormat.Png)
bmp.Dispose()
My.Computer.Network.UploadFile("c:\source.png", "ftp://yoursite.com/target.png", "username", "password")
calculate 70% of your width/heigth and insert this:how to resize that image by 70% and compress it abit ?
bmp = bmp.GetThumbnailImage(thumbwidth, thumbheight, Nothing, Nothing)