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.

Código:

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:

Código:

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

Pruebe este código

[code]

Pruebe este código

Cumple su función. Gracias.

Saludos