Sub SetLabelSize(lbl As Label, txt As String)
Dim dt As Float
Dim limit = 0.5 As Float
Dim h As Int
lbl.Text = txt
lbl.TextSize = 72
dt = lbl.TextSize
h = stu.MeasureMultilineTextHeight(lbl, txt)
Do While dt > limit Or h > lbl.Height
dt = dt / 2
h = stu.MeasureMultilineTextHeight(lbl, txt)
If h > lbl.Height Then
lbl.TextSize = lbl.TextSize - dt
lbl.TextSize = lbl.TextSize -1 'ho aggiunto questo meno 1 se no a volte la scritta era grande e non si leggeva
Else
lbl.TextSize = lbl.TextSize + dt
lbl.TextSize = lbl.TextSize -1 'ho aggiunto questo meno 1 se no a volte la scritta era grande e non si leggeva
End If
Loop
End Sub