Tome una captura de pantalla del área y guárdela como código vb ````
Función de declaración privada ReleaseDC _
Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Función de declaración privada BitBlt _
Lib "gdi32" (ByVal hDestDC As Long, _
ByVal X As Largo, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC Mientras, _
ByVal xSrc Mientras, _
ByVal ySrc Mientras, _
ByVal dwRop Mientras) Mientras
Función de declaración privada StretchBlt _
Lib "gdi32" (ByVal hdc As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth Mientras, _
ByVal nHeight Mientras, _
ByVal hSrcDC Mientras, _
ByVal xSrc Como Largo, _
ByVal ySrc Mientras Largo, _
ByVal nSrcWidth Mientras Largo, _
ByVal nSrcHeight Mientras Largo, _
ByVal dwRop As Long) As Long
'Primero, agregue un cuadro de imagen en el formulario PictureBox El nombre del control es Imagen1
'Intercepte la ubicación especificada del tamaño especificado de la región y guárdela en el archivo c.NET:\1.bmp
Private Sub Form_Load()
Atenuar hDCtmp siempre
Atenuar w, h, X, Y p> p>
w = 300 'Ancho de la porción de pantalla a capturar
h = 300 'Alto de la porción de pantalla a capturar
X = 300 'Horizontal coordenada/borde izquierdo Izquierda
Y = 300 ' Coordenada vertical/parte superior del límite superior
Me.p>
hDCtmp = GetDC(0)
Imagen1.BorderStyle = 0
Imagen1.AutoRedraw = True
Imagen1.Width = w * Screen.hdc, 0, 0, w, h, hDCtmp, X, Y, vbSrcCopy)
> ReleaseDC 0, hDCtmp
Guardar imagen.