Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        LinieMitText(e.Graphics, New Point(10, 10), New Point(220, 410))
 
    End Sub
 
 
 
    ''' <summary>
    ''' Text steht direkt auf der Linienmitte, zentriert auf beiden Achsen, 
    ' nicht gedreht um Liniensteigung
    ''' </summary>
    ''' <param name="pGR"></param>
    ''' <param name="pP1"></param>
    ''' <param name="pP2"></param>
    ''' <remarks></remarks>
    Private Sub LinieMitText(ByVal pGR As Graphics, ByVal pP1 As Point, ByVal _
      pP2 As Point)
 
        Dim l_TextAnsatzStelle As New Point
        Dim l_SF As New StringFormat
 
        If pP1.X < pP2.X Then
            l_TextAnsatzStelle.X = pP1.X + 0.5 * (pP2.X - pP1.X)
        Else
            l_TextAnsatzStelle.X = pP2.X + 0.5 * (pP1.X - pP2.X)
        End If
 
        If pP1.Y < pP2.Y Then
            l_TextAnsatzStelle.Y = pP1.Y + 0.5 * (pP2.Y - pP1.Y)
        Else
            l_TextAnsatzStelle.Y = pP2.Y + 0.5 * (pP1.Y - pP2.Y)
        End If
 
        l_SF.LineAlignment = StringAlignment.Center
        l_SF.Alignment = StringAlignment.Center
 
        pGR.DrawLine(Pens.Black, pP1, pP2)
        pGR.DrawString("Hugo", New Font("Arial", 12), Brushes.Blue, _
          l_TextAnsatzStelle, l_SF)
 
    End Sub