Beliebige Datenformate in die Zwischenablage kopieren

[HD-Driver]

Hallo,
kann mir jemand helfen?!

Ich möchte in meiner Applikation ein benutzerdefiniertes Datenformate in die Zwischenablage kopieren und in einer neuen Form wieder einfügen 'Copy und Paste'.


Copy - Funktion:

'Erstellt einen neues ClipBoard Object
Dim myObject As New clsClipBoardObject()

'Daten in die Klasse setzen z.B.
With myObject

.MyObjectName = My.Application.Info.ProductName
.MyObjectStruktur = FRACTALESTRUKTUR

End With

'Speichern in einem DataObject mit myFormat als die Art des Formats.
Dim myDataObject As New DataObject(MYCLIPBOARDFORMAT.Name, myObject)

'Kopiert myObject in die Zwischenablage.
Clipboard.SetDataObject(myDataObject, True)


Paste - Funktion

' Holt die Daten vom ClipBoard
Dim myRetrievedObject As DataObject = Clipboard.GetDataObject()

'Inhalt der Zwischenablage für die Applikation nutzbar ?
If myRetrievedObject.GetDataPresent(MYCLIPBOARDFORMAT .Name) Then

' Konvertiert das IDataObject Type zu clsClipBoardObject Type.
Dim myDereferencedObject As Object
myDereferencedObject = CType(myRetrievedObject.GetData(MYCLIPBOARDFORMAT. Name), clsClipBoardObject)

End If


Das Konvertieren beim Einfügen der Daten zu einem clsClipBoardObject Typ ist ohne Erfolg. Das Object 'myDereferencedObject ' = Nothing.

Kann mir jemand sagen, was an meiner Paste - Funktion nicht stimmt ????