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.

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

--
Regards,
Tom Ogilvy


TonyJeffs wrote in message
om...
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.