Есть код:

Let nWidth = Screen.Width
Let nHeight = Screen.Height
Let dwRop = SRCCOPY
Let hDestDC = Picture1.hdc
Let hSrcDC = GetDC(0)
Call BitBlt(hDestDC, 0, 0, nWidth, nHeight, hSrcDC, 0, 0, dwRop)
Call ReleaseDC(0, hSrcDC)
Picture1.FontName = "Tahoma"
Picture1.FontSize = "16.5"
Picture1.FontBold = True
Picture1.Print Date & " " & Time
SavePicture Form1.Picture1.Image, strFName

На экране в форме в объекте picture виден screenshot (как и должно быть), тока в файле серый фон:( И после picture1.refresh и в форме картинка пропадает)

Хелп, плиз.

any ideas?

Thanks, работает