Grafik.DrawLine(stift, x1, y1, x2, y2)

Dim bmpNeu As New Bitmap(PictureBox1.Width, PictureBox1.Height)
 
        PictureBox1.DrawToBitmap(bmpNeu, PictureBox1.Bounds)
        bmpNeu.RotateFlip(RotateFlipType.Rotate90FlipNone)
        PictureBox3.Image = bmpNeu

 PictureBox1.DrawToBitmap(bmpNeu, PictureBox1.Bounds)

 PictureBox1.DrawToBitmap(bmpNeu, New Rectangle(0, 0, PictureBox1.Width, _
   PictureBox1.Height))

Public Class frmDrawRotate
 
    'Picturebox für die Anzeige
    Dim pbox As New PictureBox With _
        {.Parent = Me, .Width = 500, .Height = 500, _
         .BorderStyle = BorderStyle.Fixed3D, _
         .BackColor = Color.Yellow, _
         .SizeMode = PictureBoxSizeMode.CenterImage}
 
 
    Private Sub frmDrawRotate_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(530, 500)
 
        Dim bmp As New Bitmap(490, 390) 'Zeichenfläche
 
        Using g As Graphics = Graphics.FromImage(bmp), _
            pn As New Pen(Color.Blue, 2)
 
            g.Clear(Color.White) 'Farbe der Zeichen-Fläche
 
            'Gitterlinien
            For i As Integer = 0 To bmp.Width Step 20
                g.DrawLine(pn, i, 0, i, bmp.Height)
            Next i
            pn.Color = Color.Red
            For i As Integer = 0 To bmp.Height Step 30
                g.DrawLine(pn, 0, i, bmp.Width, i)
            Next i
        End Using
 
        'RotateFlip-Methode anwenden
        bmp.RotateFlip(RotateFlipType.Rotate270FlipX)
 
        'Bitmap im Control anzeigen
        pbox.Image = bmp
    End Sub
 
End Class

Zitat:

Dim bmpNeu As New Bitmap(PictureBox1.Width, PictureBox1.Height)   PictureBox1.DrawToBitmap(bmpNeu, PictureBox1.Bounds) bmpNeu.RotateFlip(RotateFlipType.Rotate90FlipNone) PictureBox3.Image = bmpNeu

Zitat:

Statt PictureBox1. immer wenn möglich PictureBox1.Image verwenden.