VB 6 Не удается сохранить угол изображения в файл из Picturebox

Формулировка задачи:

                    Листинг программы
                
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - 100), -(Picture1.Height / 2 - 100)
SavePicture Picture1.Image, "c:\test.bmp"

Мне нужно примерно эту часть картинки которую я выделил сохранить в файл помогите пожалуйста не ту часть сохраняетт

Решение задачи: «VB 6 Не удается сохранить угол изображения в файл из Picturebox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim w As Long, h As Long, ncw As Long, nch As Long
Picture1.AutoRedraw = True: Picture1.ScaleMode = vbPixels
w = Picture1.ScaleX(Picture1.Picture.Width, vbHimetric, vbPixels): h = Picture1.ScaleY(Picture1.Picture.Height, vbHimetric, vbPixels)
ncw = Picture1.Container.ScaleX(Picture1.Width, Picture1.Container.ScaleMode, vbPixels) - Picture1.ScaleX(Picture1.ScaleWidth, Picture1.ScaleMode, vbPixels)
nch = Picture1.Container.ScaleY(Picture1.Height, Picture1.Container.ScaleMode, vbPixels) - Picture1.ScaleY(Picture1.ScaleHeight, Picture1.ScaleMode, vbPixels)
Picture1.PaintPicture Picture1.Picture, 0, 0, w / 2, h / 2, w / 2, h / 2
Picture1.Width = Picture1.Container.ScaleX(ncw + w / 2, vbPixels, Picture1.Container.ScaleMode): Picture1.Height = Picture1.Container.ScaleY(nch + h / 2, vbPixels, Picture1.Container.ScaleMode)
SavePicture Picture1.Image, "c:\test.bmp"