Bitmap = New Bitmap(s)
                        saveBitmapA = New Bitmap(Bitmap, 128, 96)
                        saveBitmapA.Save(f.SelectedPath & "\" & "pic" & i & _
                          "a.jpg", Imaging.ImageFormat.Jpeg)
                        Dim _img As Image = New Bitmap(saveBitmap)
                        Dim _g As Graphics = Graphics.FromImage(_img)