Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim f As New Font("Segoe UI", 10, FontStyle.Regular, GraphicsUnit.Point)
        e.Graphics.TranslateTransform(f.Height, 0)
        e.Graphics.RotateTransform(90)
        e.Graphics.DrawString("Mein Text", f, Brushes.Black, 0, 0)
        f.Dispose()
        e.Dispose()
    End Sub

#######
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