Sub Bild_drehen(ByVal z As Integer, ByVal Richtung As String)
 
        ' Stream-Objekt erstellen und Datei zum Lesen öffnen
        Dim oStream As New System.IO.FileStream(Verzeichnis.Text & _
          Dateiname.Text, IO.FileMode.Open)
 
        ' Bitmap-Objekt mit den Daten aus dem Stream füllen
        PictureBox1.Image = New Bitmap(oStream)
 
        ' Stream-Objekt und somit auch die Datei schließen
        oStream.Close()
 
        ' PictureBox1.Image = Image.FromFile(Verzeichnis.Text & Dateiname.Text)
        ' Drehen
        Select Case Richtung
            Case "UZS"
                'PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
                ' Abrufen der aktuellen Bitmap
                Dim myBitmap = DirectCast(Me.PictureBox1.Image, Bitmap)
                ' Drehen
                myBitmap.RotateFlip(RotateFlipType.Rotate90FlipNone)
                '        PictureBox1.Refresh()
            Case "GUZS"
                'PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
                ' Abrufen der aktuellen Bitmap
                Dim myBitmap = DirectCast(Me.PictureBox1.Image, Bitmap)
                ' Drehen
                myBitmap.RotateFlip(RotateFlipType.Rotate270FlipNone)
                '       PictureBox1.Refresh()
        End Select
        Threading.Thread.Sleep(100)
        PictureBox1.Refresh()
        'PictureBox1.Invalidate()
 
        ' Abspeichern des Originalbildes in der aktuellen Drehlage
        'PictureBox1.Image.Save(Verzeichnis.Text & Dateiname.Text, 
        ' System.Drawing.Imaging.ImageFormat.Jpeg)
 
 
        ' ergänzendes Beispiel für das Speichern eines
        ' JPG-Bildes mit vorgegebener Qualitätsstufe
        ' sinnvolle Qualitäten liegen im Bereich 50 <-> 95
        Dim lQuality As Integer = 95
 
        Dim EncoderParameters As New Drawing.Imaging.EncoderParameters(1)
 
        EncoderParameters.Param(0) = New Drawing.Imaging.EncoderParameter( _
          Drawing.Imaging.Encoder.Quality, CType(lQuality, Int32))
 
        ' Speicherbefehl:
        PictureBox1.Image.Save(Verzeichnis.Text & Dateiname.Text, EncoderInfo( _
          "JPEG"), EncoderParameters)
 
    End Sub