Sub Bild_drehen(ByVal z As Integer, ByVal Richtung As String)
        ' Variante 1: Laden des Bildes 
        ' 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()
 
        ' Variante 2: Laden des Bildes  
        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.Rotate90FlipNone)
                '       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)
 
    End Sub