Private Declare Function PrintWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long
Private Sub Command1_Click()
Form2.Move 0, 0, Form1.Width, Form1.Height
Form2.Picture1.Move 0, 0, Form1.Width, Form1.Height
PrintWindow Me.hWnd, Form2.Picture1.hDC, 0
Form2.Show
End Sub