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