[Doctor GME]

شكراً أخى alshandodi
الجزء الخاص بالتايمر مفيد جداً

---

شكراً أخى Anas Mahmoud
هذا ما كنت أريده وبعد بعض التعديلات حصلت على ما أريده

---

كنت أريد إضافة خاصية zoom
جربت هذه الطريقة ولكنها لم تنجح:

كود :

   Private Sub GetZoom(zoomSize As String, MyPicbox As PictureBox)

       Dim bmp As New Bitmap(MyPicbox.Image)
       Dim newWidth As Integer = MyPicbox.Image.Width / zoomSize
       Dim newHeight As Integer = MyPicbox.Image.Height / zoomSize
       Dim bmpNew As Bitmap = New Bitmap(newWidth, newHeight)
       Dim gr As Graphics = Graphics.FromImage(bmpNew)
       gr.DrawImage(bmp, 0, 0, bmpNew.Width, bmpNew.Height)
       MyPicbox.Image = bmpNew

   End Sub

فهى تضعف جودة الصورة إذا تم تصغيرها ثم تكبيرها مجدداً