código del portapapeles vb (incluida la sintaxis), dos cuadros de texto, tres botones (cortar, copiar, pegar)
Private Sub Command1_Click() 'Cortar
Llamar a Command2_Click
Text1.Text = ""
Finalizar Sub
Private Sub Command2_Click() 'Copiar
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command3_Click() 'Pegar p>
Text2.Text = Clipboard.GetText
Subcomando privado3_Click() 'Pegar