Zitat:

von daher wird dir die Zwischenablage selber nicht weiterhelfen

    Public Enum DropEffects
        Invalid
        Move
        Copy
        Unknown
    End Enum
 
    Public Function PreferredDropEffect() As DropEffects
 
        'retrieve data currently on the clipboard
        Dim MyClipboardDataObject As IDataObject = Clipboard.GetDataObject()
 
        'retrieve data associated with "Preferred DropEffect"
        Dim MyClipboardData As Object = MyClipboardDataObject.GetData( _
          "Preferred DropEffect")
 
        Dim MyMemoryStream As System.IO.MemoryStream
 
        'check presence of "Preferred DropEffect" 
        If Not IsNothing(MyClipboardData) Then
 
            'get MemoryStream object returned
            MyMemoryStream = MyClipboardData
 
            'look at the first byte
            Select Case MyMemoryStream.ReadByte
                Case 2
                    ' copy
                    Return DropEffects.Move
                Case 5
                    ' move
                    Return DropEffects.Copy
                Case Else
                    ' unknown drop effect
                    Return DropEffects.Unknown
            End Select
 
        Else
            ' no CFSTR_PREFERREDDROPEFFECT available
            Return DropEffects.Invalid
        End If
 
    End Function