'Beispiel: VB .Net - Grafik aus PictureBox nach Word ziehen - Drag and Drop 'Hinweis : Oeffen Sie MS Word und ziehen Sie die Grafik mit gedrueckter Maustaste nach Word. ' Option Strict On Option Explicit On Imports System.Drawing.Imaging Imports System.IO Public Class Form1 Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles PictureBox1.MouseDown Me.DragPictureBoxContentTo(Me.PictureBox1) End Sub Private Sub DragPictureBoxContentTo(ByVal pb As PictureBox) Const INDEPENDENT_BITMAP As String = "DeviceIndependentBitmap" Dim save As New MemoryStream Dim write As New MemoryStream Const OFFSET As Integer = 14 Try Dim dt As New DataObject If pb IsNot Nothing Then pb.Image.Save(save, ImageFormat.Bmp) Dim content As Byte() = save.GetBuffer() write.Write(content, OFFSET, CInt(save.Length - OFFSET)) save.Position = 0 dt.SetData(INDEPENDENT_BITMAP, write) pb.DoDragDrop(dt, DragDropEffects.Copy) Else Exit Sub End If Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") Finally If save IsNot Nothing Then save.Dispose() If write IsNot Nothing Then write.Dispose() End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me : .CenterToScreen() : End With End Sub End Class