PrintWindow API Call ( VB 6.0 and 500 Points)

I need to use the PrintWindow API Call to save a portion of a window to a picture box. I have done this so far ( see attached code). Any suggestions?
Dim Hwndwindow As Long
Hwndwindow = FindWindow(vbNullString, "Calculator")
Picture1.Visible = True
Picture1.AutoRedraw = True
Picture1.Picture = Nothing
PrintWindow Hwndwindow, Picture1.hDC, 0

Open in new window

KingSencatAsked:
Who is Participating?
 
pathakhemantConnect With a Mentor Commented:
Private Declare Function PrintWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim Hwndwindow As Long
Hwndwindow = FindWindow(vbNullString, "Calculator")
Picture1.Visible = True
Picture1.AutoRedraw = True
Picture1.Picture = Nothing
PrintWindow Hwndwindow, Picture1.hDC, 0
End Sub
' OPEN CALCULATOR BEFORE PRESSING COMMAND1_CLICK
ITS WORKING

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.