Private Function Rows(value As String, iWidth As Integer) As Integer
Dim i As Integer
Dim ss As String[]
Dim sRow As String
If Report1.Font.TextWidth(value) < iWidth Then Return 1
ss = Split(value, " ")
For Each s As String In ss
sRow &= " " & s
If Report1.Font.TextWidth(sRow) > iWidth Then
sRow = s
Inc i
Endif
Next
Return i + 1
End