Italian problema con textsize

[MroBurk]

Salve a tutti, ho problemi con la grandezza del testo, qualcuno può suggerirmi un modo per avere un testo di una label o di un button adeguato a seconda del dispositivo che utilizzo? purtroppo ho utilizzato il modulo di classe settextlabel e non funziona per niente. ho modificato anche la riga in basso, perchè il problema è che purtroppo la scritta è sempre troppo grande o troppo piccola.
Grazie a chi potrà aiutarmi

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

 

[LucaMs]

Prova questo: https://www.b4x.com/android/forum/threads/klaus-settextsize-snippet.89345/

 

[MroBurk]

THANKS!!