Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim g As Graphics = e.Graphics
        Dim pt1 As New Point(20, 20)
        Dim pt2 As New Point(70, 20)
        g.DrawLine(Pens.Red, pt1, pt2)
 
        g.DrawString("The text", Me.Font, Brushes.Green, pt1)
 
 
        Dim pt3 As New Point(20, 70)
        Dim pt4 As New Point(70, 120)
        g.DrawLine(Pens.Red, pt3, pt4)
 
        Dim angb As Single = Math.Atan((pt4.Y - pt3.Y) / (pt4.X - pt3.X))
        Dim angg As Single = angb * 180 / Math.PI
        g.TranslateTransform(pt3.X, pt3.Y)
        g.RotateTransform(angg)
        g.TranslateTransform(-pt3.X, -pt3.Y)
        g.DrawString("The text", Me.Font, Brushes.Green, pt3)
    End Sub

________
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