Public Function TextUmbrueche(ByVal Text As String, ByVal Schrift As Font, _
      ByVal Feldbreite As Integer) As Integer
        Dim s As String = ""
        Dim Umbrueche As Integer = 1
        Dim StartVal As Integer = 1
        Dim frm As New System.Windows.Forms.Form
        Dim g As System.Drawing.Graphics = frm.CreateGraphics
        Dim sf As SizeF
 
        For i As Integer = 1 To Text.Length
            s = Mid(Text, StartVal, i - StartVal + 1)
            sf = g.MeasureString(s, Schrift)
            If sf.Width > Feldbreite Then
                Umbrueche = Umbrueche + 1
                StartVal = i
            End If
        Next
        g.Dispose()
        Return Umbrueche
    End Function

            Dim newFont As System.Drawing.Font
            newFont = New System.Drawing.Font("Tahoma", 7, FontStyle.Bold, _
              GraphicsUnit.Pixel)
            Dim MaxUmbrueche As Integer = 1
            For ii As Integer = 1 To 1356
                MaxUmbrueche = TextUmbrueche("Testtext", newFont, 40)
            Next

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)