Hay está el codigo para vb.net.
 
 
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
                        delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)
 
                        bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero)
 
 
 
 
 Private Function ECodigoExtra() As Boolean
        Return False
    End Function
 
 
  
 No me funciona porque yo lo que tengo es el siguiente codigo:
     'Elegimos la imagen izquierda que querramos
        OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"      
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
            Dim jpg As New Bitmap(OpenFileDialog1.FileName)
            Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
            delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)
            jpg = jpg.GetThumbnailImage(PictureBox1.Image.Width = 200, PictureBox1.Image.Height = 224, delegat, IntPtr.Zero)
            PictureBox1.Image = CType(jpg, Image)
        End If
Y me da error a la hora de hacer el thumbnailImage
Es que lo que yo quiero hacer es escoger una foto con el OpenFileDialog y redimensionarla y abrirla con el tamaño que yo quiera.