[Aly El-Haddad]

السلام عليكم،
أستبدل كودك بالكود التالي:

كود :

Dim saveFile As String = path & ".jpg"
        Dim cropSize As Size = AxWindowsMediaPlayer1.Size
        Dim croppedImage As New Bitmap(AxWindowsMediaPlayer1.Size.Width, AxWindowsMediaPlayer1.Size.Height)
        Dim G As Graphics = Graphics.FromImage(croppedImage)
        G.CopyFromScreen(AxWindowsMediaPlayer1.PointToScreen(Nothing), Nothing, cropSize)
        PictureBox1.Image = croppedImage
        croppedImage.Save(saveFile)
        MsgBox("Saved File To : " & saveFile) 'Showing the whole path where capturedImage is saved
        Process.Start(saveFile) 'Showing The Captured Image In Windows Image Viewer