VB: Después de copiar y pegar el texto, restaurarlo al texto original y restaurar la programación del botón
Dim?ywb?As?String
Private?Sub?Command1_Click()
'Restaurar texto
Text1.Text?= ?""
Texto1.Text?=?ywb
Fin?Sub
Privado?Sub?Command2_Click()
'Pegar Texto
Texto1.Text?=?""
Texto1.Text?=?"Este es el texto pegado"
End?Sub
Private?Sub?Form_Load()
Text1.Text?=?""
Text1.Text?=?"Este es el texto original"
ywb?=?Text1.Text
Fin?Sub