[aljzazy]

كود :

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

' Create a button at runtime
Dim button As New Button()
button.Text = "Click Me"
button.Location = New Point(50, 50)

' Serialize the button object to a memory stream
Dim stream As New MemoryStream()
Dim formatter As New BinaryFormatter()
formatter.Serialize(stream, button)

' Set the memory stream as a custom clipboard format
Dim dataObject As New DataObject()
dataObject.SetData("MyButton", stream)
Clipboard.SetDataObject(dataObject)