save PrintScreen ТОЛЬКО активного MDIдоч.окна в BMPфайл VB6?

[Baloo]

не проблема эмулировать Alt + PrinScreen (keybd_event VK_SNAPSHOT+VK_MENU), но у меня много дочерних окошек (MDIChild = True) и в картинку попадает родительское окно:(
приходится использовать BitBlt - но у меня есть только пример сохранения в буфер:

Код: Выделить всё

   'Picture1 - save in Picturebox
   retval = BitBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, _
                    deskDC, windowpos.Left, windowpos.Top, SRCCOPY)
    Call ReleaseDC(deskWnd, deskDC)
    Picture1.Refresh
    'save in Clipboard
    Clipboard.SetData Picture1.Image, vbCFBitmap
    Clipboard.SetData Picture1.Image, vbCFDIB


но как сохранить в файл? и ОООчень хотелось бы это сделать вообще без использования Picturebox.
всем заранее спасибо, особенно за конкректный код. Ведь задачка вроде не то хитрая;)

З.Ы.
для простоты я прицепил готовый проект (3Кб) откуда взят этот код.

[BV]

http://www.google.com/search?client=ope ... 8&oe=utf-8

[pronto]

SavePicture Picture1.Image, "C:\my.bmp"

1. свойство PictureBox AutoRedraw = True
2. автоматически создает новый файл или перезаписывает старый.
3. сохраняет с глубиной цвета, которая выбрана в настройках Винды