Dim b As Bitmap = PictureBox1.Image.Clone ' Bild sichern
        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.Clear(PictureBox1.BackColor) ' Picbox leeren
        g.DrawImage(b, New Rectangle(0, 0, b.Size.Width / 4, b.Size.Height / _
          4)) ' Bild verkleinert wieder reinzeichnen
        g.Dispose()
        b.Dispose()
        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) ' Bild 
        ' 90° gegen Uhrzeigersinn drehen
        PictureBox1.Refresh() ' Das Bild aktualisieren

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co