Part | Description | |
object | Required. A valid object. |
Dim MyData As DataObject
Private Sub CommandButton1_Click()
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
TextBox2.Paste
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = "Move this data to a DataObject, to the Clipboard," _
& " then to TextBox2!"
End Sub