Private Sub Form1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim r As New Rectangle(0, 0, 80, 50)
 
        g.RotateTransform(90)
        g.TranslateTransform(0, -r.Height)
 
        g.DrawRectangle(Pens.Black, r)
        Dim txt As String = "here is what we " & vbCrLf & "want to draw" & _
          vbCrLf & "in the box"
 
        g.DrawString(txt, Me.Font, Brushes.Firebrick, r)
    End Sub

        g.RotateTransform(180)
        g.TranslateTransform(-r.Width, -r.Height)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist