Visual Basic 6 - Taglia, Copia, Incolla

non mi funzionano più questi tre comandi, ecco i codici:

Private Sub taglia_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtf.SelRTF
ActiveForm.rtf.SelText = vbNullString
End Sub

Private Sub copia_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtf.SelRTF
End Sub

Private Sub incolla_Click()
On Error Resume Next
ActiveForm.rtf.SelRTF = Clipboard.GetText
End Sub

grazie!!

in ordine:
1)Clipboard.SetText ActiveForm.rtf.text
2)Clipboard.SetText ActiveForm.rtf.text
3)se non funzionano le prime non funziona manco questa...

vedi se così va

non vanno nemmeno così

ma vuoi copiare tutto il testo dell'oggetto o solo il testo selezionato?

solo il testo selezionato

Private Sub taglia_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtf.SelRTF

ActiveForm.rtf.SelText = vbNullString
'Quest'ultima deseleziona il testo ma non lo
'cancella...non so se vuoi così
End Sub

Private Sub copia_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtf.SelRTF
End Sub

Private Sub incolla_Click()
On Error Resume Next
ActiveForm.rtf.text = Clipboard.GetText
End Sub

Provate e funzionano...

non mi funzionano nemmeno così

ma quelle istruzioni le hai messe nei command button,no?