[3booody]

عذرآ اخي حاولت التعديل على كودك دون فهم الغاية الحقيقة ظننت فقط تريد حفظ الصور في وقت لاحق

هذا الكود يؤدي الغرض الذي تريد تفضل واكرر اعتذاري

كود :

Dim bit As New List(Of Bitmap)
   Dim frame As Integer = 0
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do Until frame = 61
           Dim screenshot As New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
           Dim graph As Graphics = Graphics.FromImage(screenshot)
           Label1.Text = frame
           graph.CopyFromScreen(Bounds.X, Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
           Application.DoEvents()
           frame += 1
           bit.Add(screenshot)
           graph.Dispose()
       Loop
       Dim n As Integer = 0
       For Each img As Bitmap In bit
           img.Save("C:\Users\3bo0ody\Desktop\ima\ima" & n & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
           n += 1
       Next
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Bounds = Screen.PrimaryScreen.Bounds
   End Sub

عدلت مرة اخرى وفقط زر بوتون واحد ماتحتاج اثنين