VB Forum / General / August 2005

Run SavePicture against the return of one of the functions exposed here:

 How To Capture and Print the Screen, a Form, or Any Window
 http://support.microsoft.com/kb/q161299/

Here's how I do it.  It's from a script I found on Randy Birch's site
and modified.
( I think it was Randy's site )

Create a second PictureBox, make sure it's the same size as the
original, and set visible to false.

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long

     Private Const WM_PAINT = &HF
     Private Const WM_PRINT = &H317
     Private Const PRF_CLIENT = &H4&    ' Draw the window's client area
     Private Const PRF_CHILDREN = &H10& ' Draw all visible child
     Private Const PRF_OWNED = &H20&    ' Draw all owned windows

Private Sub Command1_Click()
'create and save image
Dim rv As Long
Picture2.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hDC, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hDC, _
           PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
Picture2.Picture = Picture2.Image
Picture2.AutoRedraw = False
SavePicture Picture2.Picture, "C:\path\to\file.bmp"

End Sub

It's what I use to save the image created by this utility:
http://www.95isalive.com/fixes/HitMeFP.htm