Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs)   Handles Me.Paint
 
       Dim f As Font = New Font("Comics Sans MS", 24, FontStyle.Bold Or _
         FontStyle.Italic)
       Dim frmt As New System.Drawing.StringFormat()
       frmt.FormatFlags = StringFormatFlags.DirectionVertical
 
       e.Graphics.DrawString("Hallo Welt", f, Brushes.Red, 20, 20, frmt)
 
  End Sub