متد رو پیوست کردم فقط لطف کنین تغییر بدین فایل رو از تمپ با اسم axx بخونه حجمش رو کم کنه یه دنیا ممنون میشم.همون جا هم سیو کنه
البته عکس که قرار هست کمپرس بشه حاصل این کد هست.که الان تو درایو d سیو میشه بعدا میکنمش temp
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("d:\\dcap.jpg", Imaging.ImageFormat.Bmp)
اصلا میشه همین کد خودم که معلوم هست تو قالب bmp ذخیره مینه رو jpg کنم تا حجمش بیاد پایین؟