Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Dim OpenFileDialog1 As New OpenFileDialog()
        With OpenFileDialog1
            .Filter = "Bmp Dateien (*.bmp*)|*.bmp*|Jpeg Dateien (*.jpg)|*.jpg*"
            .FilterIndex = 1
            .RestoreDirectory = True
            .Title = "Bild auswählen"
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim bild As Image = Image.FromFile(.FileName, True)
                Dim convbild As New Bitmap(800, 600)
                Dim convbild_d As Graphics = Graphics.FromImage(convbild)
                Dim imgCodecs() As System.Drawing.Imaging.ImageCodecInfo = _
                  System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
                convbild_d.DrawImage(bild, 0, 0, 800, 600)
                convbild_d.InterpolationMode = _
                  Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
                convbild.SetResolution(60.97, 60.97)
                convbild.Save("Files\800x600\800x600.bmp")
                bild.Dispose()
                Application.DoEvents()
                Dim oStream As New System.IO.FileStream(Application.StartupPath _
                  & "\Files\800x600\800x600.bmp", IO.FileMode.Open)
                PictureBox2.Image = New Bitmap(oStream)
                oStream.Close()
            End If
        End With
    End Sub