'Option RTFM On
Private Sub [твоя кнопка]_Click()
On Error Resume Next
'очистим буфер
Clipboard.Clear
'скопируем текст в простом формате
Clipboard.SetText [твой текстбокс].Text, _
vbCFText
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8