Italian Come avere un carattere sempre proporzionato allo schermo

[Dominex]

Ho scritto un pezzo di codice per avere sempre l'altezza di un carattere proporzionata a qualunque schermo indipendentemente dalla scala e dalla risoluzione. Il valore da assegnare è in percentuale; 1 punto è uguale a 0.5%y. E' possibile usare valori con decimali.

Sub AltezzaFont(PercentualeAltezza As Float) As Int
   Return PerYToCurrent(PercentualeAltezza/2)/Density '1 punto PercentualeAltezza equivale a 0.5%y
End Sub

Ad esempio con:

label1.TextSize = AltezzaFont(10)

Avremo un carattere alto pari al 5% dei pixel dell'altezza dello schermo.