How to copy text?

[Forged]

How would I make a button copy text in a text box?  I tryed text1.seltext, but that didn't work.

[UserLoser.]

Copy text to clipboard?  Store the text in a variable?

Since you didn't be specific, I'll answer both...:

Code Select Expand


Private Sub SomeButton_Click()
   Dim TheMessage as String
   TheMessage = MyTextBox.Text
   MsgBox "The text in the text box is " & TheMessage & "!"
End Sub


Or to put it to the clipboard

Code Select Expand


Private Sub SomeButton_Click()
   Dim TheMessage as String
   TheMessage = MyTextBox.Text
   Clipboard.SetText TheMessage
End Sub


[Forged]

Code Select Expand

Private Sub SomeButton_Click()
   Dim TheMessage as String
   TheMessage = MyTextBox.Text
   Clipboard.SetText TheMessage
End Sub
Is what I was looking for.  Thanks alot.