Немного изменённый пример из Api-Guide:
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 Form_Load()
'KPD-Team 2001
'URL:
http://www.allapi.net/
'E-Mail:
KPDTeam@Allapi.net
Dim mWnd As Long
'set the graphics mode to persistent
Me.AutoRedraw = True
'set the handle of the window
mWnd = Me.hWnd
'draw the image of the window on our form
PrintWindow mWnd, Me.hDC, 0
End Sub