Portapapeles Mejorado texto e imagenes

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  Dim a As Integer

  PictureBox1.border = Border.Raised
  PictureBox1.Stretch = True
  PictureBox1.Picture = Picture[Application.Path &/ "dragon.png"]

End

Public Sub ButtonPegar_Click()

  Dim a As Integer
  'Añado el contendido del portapapeles al textArea

  LabelMensaje.text = "El contenido del portapapeles tiene los siguientes formatos: "

  For a = 0 To Clipboard.Formats.Count - 1
    LabelMensaje.text &= " " & Clipboard.Formats[a] & "|"
  Next

  TextAreaContenido.text &= Clipboard.Paste("text/plain")

  If Clipboard.format = "image/png" Then
    'cargo imagen en el picturebox1
    PictureBox1.Picture = Clipboard.Paste().picture
  Endif

End

Public Sub ButtonCopiar_Click()
  'copio el texto que haya en el textArea al porpatapeles

  Clipboard.Copy(TextAreaContenido.text)

End

Public Sub ButtonCopiarImagen_Click()
  'copio imagen que esta en el picurebox1
  Clipboard.Copy(PictureBox1.Picture.image)

End