Afficher une image du presse papier sur une PictureBox V.B 2010

Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
    Private Const WM_DRAWCLIPBOARD As Integer = &H308
    Private Const WM_CHANGECBCHAIN As Integer = &H30D
    Private mNextClipBoardViewerHWnd As IntPtr
    Private Event OnClipboardChanged()
    <DllImport("user32")> _
    Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr
    End Function
    <DllImport("user32")> _
    Private Shared Function ChangeClipboardChain(ByVal hWnd As IntPtr, ByVal hWndNext As IntPtr) As _
 <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    <DllImport("user32")> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, _
 ByVal lParam As IntPtr) As IntPtr
    End Function
    Sub New()
        InitializeComponent()
        mNextClipBoardViewerHWnd = SetClipboardViewer(Me.Handle)
        AddHandler Me.OnClipboardChanged, AddressOf ClipBoardChanged
    End Sub
    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_DRAWCLIPBOARD
                RaiseEvent OnClipboardChanged()
                SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
            Case WM_CHANGECBCHAIN
                If m.WParam.Equals(mNextClipBoardViewerHWnd) Then
                    mNextClipBoardViewerHWnd = m.LParam
                Else
                    SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
                End If
        End Select
        MyBase.WndProc(m)
    End Sub
    Private Sub ClipBoardChanged()

        If Clipboard.ContainsText = True Then
            Label1.Text = Clipboard.GetText
        End If

        If Clipboard.ContainsImage = True Then
            PictureBox1.Image = CType(Clipboard.GetImage.Clone, Image)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom

        End If
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        ChangeClipboardChain(Me.Handle, mNextClipBoardViewerHWnd)
    End Sub
End Class

Option Strict On
Public Class Form1
    Dim pic As Image
    Dim x As New DataObject
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ofd As New OpenFileDialog
        With ofd
            .Title = "Choisissez une image"
            .Filter = "jpeg (*.jpg)|*.jpg|gif (*.gif)|*.gif|tiff (*.tif)|*.tif|bmp (*.bmp)|*.bmp|png (*.png)|*.png"
            .FilterIndex = 1
            .RestoreDirectory = False
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                pic = New Bitmap(.FileName)
                x.SetData(DataFormats.Bitmap, False, pic)
                System.Windows.Forms.Clipboard.SetDataObject(x)
            Else
                MessageBox.Show("Opération annulée par l'utilisateur!", "Ouverture image", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If
            .Dispose()
        End With
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        x = CType(System.Windows.Forms.Clipboard.GetDataObject, DataObject)
        pic = CType(x.GetData(DataFormats.Bitmap), Image)
        PictureBox1.Image = pic
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    End Sub
End Class