[Shell]

Buenas!.

¿ Ese método existe realmente ?.

Según la ayuda es que toma una imagen del control DrawingArea y lo devuelve. Pero no me ha funcionado , aunque di dimensiones a la imagen.

GAMBAS

Public Sub btnMostrar_Click()
 
  Dim $picture As New Picture(ANCHO, ALTO)
 
  $picture = DrawingArea1.Grab()
 
  PictureBox1.Picture = $picture
 
End

Se queda como congelado el procedimiento: "No coinciden los tipos, requerido picture, obtenido Void en cambio"
Como si no devolviese nada.

Tuve que usar esta forma:

GAMBAS

Public Sub btnMostrar_Click()
 
  Dim $picture As New Picture(ANCHO, ALTO)
 
  Paint.Begin($picture)
  Dibujar
  Paint.End
 
  PictureBox1.Picture = $picture
 
 
End

Imaginé que el primer método me iba ahorrar ese código. 

Saludos

[cogier]

Pruebe este código

GAMBAS

PictureBox1.Picture = Desktop.Screenshot(DrawingArea1.ScreenX, DrawingArea1.ScreenY, DrawingArea1.Width, DrawingArea1.Height)

[Shell]

Pruebe este código

Cumple su función. Gracias.

Saludos