Hard: Resize Met Clipboard setdata

[Massaslayer]

Hallo,
ik heb een klein probleempje hoe kan ik images resizen met deze code die ik geschreven heb.
De code op zich is perfect alleen dat images geresized moeten worden.
Dus hij moet geresized worden als ik hem invoeg via mijn openfiledialog,
en via men doubble click en men spacebar click.

Voor meer info en het werkend project download de bijlage

Imports System.IO
Imports System.String
Imports System.Drawing
Imports System.Data
Imports System.Runtime.InteropServices

Public Class Form1

    Dim ListVolledigPathAfbeeldingen As New ListBox
    Private Sub openfoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openfoto.Click


        


        Dim open As OpenFileDialog
        Dim txt As String
        open = New OpenFileDialog
        open.Filter = "Bitmap Afbeelding (*.bmp)|*.bmp|JPG afbeelding (*.jpg)|*.jpg|JPEG afbeelding (*.JPEG)|*.JPEG|PNG afbeelding (*.png)|*.png|GIF afbeelding (*.gif)|*.gif|Alle bestanden (*.*)|*.*"
        open.InitialDirectory = Environment.GetEnvironmentVariable("HOMEDRIVE") & Environment.GetEnvironmentVariable("HOMEPATH") & "\Mijn documenten"

        If open.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            txt = open.FileName.ToString
            txt = Mid(txt, InStrRev(txt, "\"))
            System.IO.File.Copy(open.FileName, "C:\test\" & txt, True)
            Dim bmp As Bitmap = New Bitmap("C:\test\" & txt)
            Clipboard.SetDataObject(bmp, False)
            RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim di As New IO.DirectoryInfo("c:\test\")
        Dim diarbmp As IO.FileInfo() = di.GetFiles("*.bmp")
        Dim diarjpg As IO.FileInfo() = di.GetFiles("*.jpg")
        Dim diarjpeg As IO.FileInfo() = di.GetFiles("*.jpeg")
        Dim diarpng As IO.FileInfo() = di.GetFiles("*.png")
        Dim diargif As IO.FileInfo() = di.GetFiles("*.gif")
        Dim dra As IO.FileInfo

        For Each dra In diarbmp
            ListBox1.Items.Add(dra)
            ListVolledigPathAfbeeldingen.Items.Add(dra.FullName)
        Next
        For Each dra In diarjpg
            ListBox1.Items.Add(dra)
            ListVolledigPathAfbeeldingen.Items.Add(dra.FullName)
        Next
        For Each dra In diarjpeg
            ListBox1.Items.Add(dra)
            ListVolledigPathAfbeeldingen.Items.Add(dra.FullName)
        Next
        For Each dra In diarpng

            ListBox1.Items.Add(dra)
            ListVolledigPathAfbeeldingen.Items.Add(dra.FullName)
        Next
        For Each dra In diargif
            ListBox1.Items.Add(dra)
            ListVolledigPathAfbeeldingen.Items.Add(dra.FullName)
        Next


    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim volledigPath As String

        Try
            ' RichTextBox1.Text &= ControlChars.NewLine & ListBox1.SelectedItem.ToString
            volledigPath = ListVolledigPathAfbeeldingen.Items(ListBox1.SelectedIndex)
            Dim bmp1 As Bitmap = New Bitmap(volledigPath)
            Clipboard.SetDataObject(bmp1, False)
            RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
        Catch ex As Exception

        End Try



    End Sub

    Private Sub ListBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListBox1.KeyPress
        Dim volledigPath As String

        Try
            If e.KeyChar = ChrW(Keys.Space) Then
                '  RichTextBox1.Text &= ListBox1.SelectedItem.ToString
                volledigPath = ListVolledigPathAfbeeldingen.Items(ListBox1.SelectedIndex)
                Dim bmp1 As Bitmap = New Bitmap(volledigPath)
                Clipboard.SetDataObject(bmp1, False)
                RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
            End If
        Catch ex As Exception

        End Try
    End Sub
End Class