Sub Bild_drehen(ByVal z As Integer, ByVal Richtung As String)
        'Dim NeuerDateiname As String
        ' Drehen
        Select Case Richtung
            Case "UZS"
                PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
                PictureBox1.Refresh()
            Case "GUZS"
                PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
                PictureBox1.Refresh()
        End Select
 
        PictureBox1.Invalidate()
 
 
        ' Abspeichern des Originalbildes in der aktuellen Drehlage
        PictureBox1.Image.Save(Verzeichnis.Text & _
          Dateiname.Text,System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub