'Anstelle der letzten Zeile einfügen.
 
        'Rechteck berechnen, in der der Text stehen soll.
        Dim nLongTextRect As New Rectangle(0, 90, Me.Width, Me.Height - 90)
 
        'StringFormat Instanz holen
        Dim nStringFormat As New StringFormat
 
        'Einstellungen setzen
        nStringFormat.Alignment = StringAlignment.Near
        nStringFormat.LineAlignment = StringAlignment.Near
        nStringFormat.Trimming = StringTrimming.EllipsisCharacter
 
        'Rechteck + StringFormat angeben.
        e.Graphics.DrawString(Text(5), Me.Font, Brushes.Black, nLongTextRect, _
          nStringFormat)