For Each _file As String In alstFileName
Dim image As Bitmap = New Bitmap(_file)
Dim rect As New Rectangle(539, 345, 168, 124)
Dim cropped As Bitmap = image.Clone(rect, image.PixelFormat)
image.Dispose()
cropped.Save(_file, System.Drawing.Imaging.ImageFormat.Jpeg)
Next