'--------------------------- font size --------------------------
Dim w As Single
Dim i As Long
Dim b As Boolean
Dim n
n = Texte8.FontSize
w = Texte8.Width / 1440
Texte8.Enabled = True
For i = n To 1 Step -1
b = (Len(Texte8.Value) + 1) * i / 72 - w <= 0
If b = True Then
Texte8.FontSize = i
Exit For
End If
Next