COPIAR - CORTAR Y PEGAR

COPIAR:

Private Sub mnuCopiar_Click ()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub

CORTAR:

Private Sub mnuCortar_Click ()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

PEGAR:

Private Sub mnuPegar_Click ()
Text1.SelText = Clipboard.GetText()
End Sub