Sub
Kes(x
As
Form, CntTxt
Control)
If
x.CntTxt.SelText >
""
Then
Clipboard.SetText x.CntTxt.SelText
x.CntTxt.SelText =
End
'-----------
kopyala(x
'------------
yapıştır(x
clp$ = Clipboard.GetText()
clp$ >
And
Clipboard.GetFormat(1)
x.CntTxt.SelText = clp$