Copying the text from a text box to the clipboard

[TonyJeffs]

Why doesn't this work?
..................................
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = "hi"
UserForm1.TextBox1.Copy
UserForm1.TextBox2.Paste
'why doesn't textbox2 contain "hi"?
End Sub
....................................

Thanks

Tony

ps it says in help:
..................................
Copy Method
Copies the contents of an object to the Clipboard.
<snip>
On a TextBox or ComboBox, it copies the currently selected text.

 

[Tom Ogilvy]

Copy copies the selected text - you don't have any text selected:

Private Sub CommandButton1_Click()
With UserForm1
..TextBox1 = "hi"
..TextBox1.SelStart = 0
..TextBox1.SelLength = Len(TextBox1.Text)
..TextBox1.Copy
..TextBox2.Paste
End With
End Sub

works.

But this is easier:


Private Sub CommandButton1_Click()
With UserForm1
..TextBox1 = "hi"
..TextBox2.Text = .Textbox1.Text
End With
End Sub