Portapapeles

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub ButtonPegar_Click()
  'Añado el contendido del portapapeles al textArea

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

End

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

  Clipboard.Copy(TextAreaContenido.text, "text/plain")

End