Private Sub pb_Paint(sender As Object, _
         e As System.Windows.Forms.PaintEventArgs) Handles pb.Paint
 
        'Bestimmung der Textposition
        'Die Routine benötigt die Größe der unrot. Bitmap, 
        'deshalb Vertauschung von Width/Height
        Dim textposrot As Point = _
            ComputeRotatedPoint(textposition, bmp_picture.Height, _
            bmp_picture.Width, RotateFlipType.Rotate90FlipNone)
 
        Dim rotateangle As Single = 90
 
        Using br As New SolidBrush(tb.ForeColor)
            With e.Graphics
                'Rotationsmatrix zur Drehung des Textes am
                'Einfügepunkt (rotiert)
                Dim m As New Drawing2D.Matrix
                m.RotateAt(rotateangle, textposrot)
                .Transform = m
 
                'Text in das Bild eintragen  
                .DrawString(tb.Text, tb.Font, br, textposrot)
            End With
 
        End Using
 
    End Sub