Программно скопировать содержимое TextBox в буфер.

[uralshans]

Доброго времени суток!
Подскажите, как программно (нажатием на кнопку) скопировать данные из Textbox или Labelв буфер. Как должен выглядеть код для этой операции?
Заранее благодарен!

[The_Prist]

Два варианта для TextBox:

    If TextBox1.Value <> "" Then
        TextBox1.SelStart = 0
        TextBox1.SelLength = TextBox1.TextLength
        TextBox1.SetFocus
        TextBox1.Copy
    End If

    Dim oClp As New DataObject
    If TextBox2.Value <> "" Then
        oClp.SetText TextBox2.Value
        oClp.PutInClipboard
    End If

[VictorM]

Посмотрите ЗДЕСЬ и ЗДЕСЬ
**
The_Prist уже все написал

[uralshans]

С текст бокс разобрался, но на лабел это не подходит. Как быть?

[The_Prist]

но на лабел это не подходит

Так Вы просили TextBox или Label.

С текст бокс разобрался

Если бы разобрались - вопроса про Label не возникло бы. Почему бы действительно не разобраться в предоставленных кодах и не подумать над прикруткой их к Label? Второй код достаточно информативен, справка присутствует в VBA без доп.оплат. Учитесь ловить рыбу, а не подбирать подкинутую.
Полностью не буду приводить код - пытайтесь хоть что-то самостоятельно сделать(тем более делать-то ничего не надо):

oClp.SetText Label1.Caption

[Hugo121]

Так второй вариант работает с чем угодно - замените только value на caption, раз нет value
Когда не будет формы - код проще писать используя вместо dataobject это:

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

[uralshans]

Простите!! Я взял первый код (показался более простым понятным).. и в нем уже пробовал переделать на Label. Но это было на работе. Когда пришел домой, открыл ТЕМУ прочитал еще раз, решил попробовать те же махинации только со 2 кодом. И всё получилось!) Огромное спасибо!! ....ну я не всё готовое беру, 50% точно сам дотумкиваю)