With text1 'Tümünü Seç
.SetFocus '
.SelStart = 0 '
.SelLength = Len(text1.Text) '
End With
'------------------------------------------
Clipboard.Clear 'Kes
Clipboard.SetText text1.SelText '
'------------------------------------------
Clipboard.SetText text1.SelText 'kopyala
'------------------------------------------
text1.SelText = Clipboard.GetText 'yapıştır