Public Class Form1
 
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        'Ansatzpunkt fuer DebugZwecke
        e.Graphics.FillEllipse(Brushes.Red, 30, 30, 5, 5)
 
        'Eigentliche Ausgabe vom Text 
        Util2D.DrawRotatedString(e.Graphics _
                      , "Testtext" _
                      , Me.Font _
                      , Brushes.Black _
                      , New Point(30, 30) _
                      , TextDockingEnum.TopLeft _
                      , -45 _
                      , New StyleScaling(1, 1) _
                      , 0 _
                      , New StringFormat _
                      )
 
    End Sub
 
 
End Class