copie todo texto abaixo, cole no bloco de notas e salve em uma pasta com a extensão frm.
ex: Form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3960
ClientLeft = 60
ClientTop = 345
ClientWidth = 7650
LinkTopic = "Form1"
ScaleHeight = 3960
ScaleWidth = 7650
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdSalvar
Caption = "Salvar Arquivo"
Height = 855
Left = 5880
TabIndex = 2
Top = 3000
Width = 1695
End
Begin VB.CommandButton cmdCompleta
Caption = "Janela Ativa"
Height = 855
Left = 5880
TabIndex = 1
Top = 1080
Width = 1695
End
Begin VB.CommandButton cmdAtiva
Caption = "Toda tela"
Height = 855
Left = 5880
TabIndex = 0
Top = 120
Width = 1695
End
Begin VB.Image imgMiniatura
Height = 3735
Left = 120
Stretch = -1 'True
Top = 120
Width = 5655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = &H2C
Private Sub cmdAtiva_Click()
'This calls the print screen for Active Window
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
'to get it from the clipboard
imgMiniatura.Picture = Clipboard.GetData()
End Sub
Private Sub cmdCompleta_Click()
'This calls the print screen for Entire Screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
'to get it from the clipboard an place on form
imgMiniatura.Picture = Clipboard.GetData()
End Sub
Private Sub cmdSalvar_Click()
SavePicture imgMiniatura.Picture, InputBox("Local de Arquivo")
End Sub
teste veja se é isto
