'Starter service
Dim ac As Accessiblity
Utils.Scale = 0.8999999761581421 / ac.GetUserFontScale
Dim numbers() As Float = Array As Float(0.8,0.9,1.0,1.1,1.2,1.35,1.5)
Dim closest As Float = 0
Dim ac As Accessiblity
Dim numb As Float =$"$1.2{ac.GetUserFontScale}"$
For i = 1 To numbers.Length-1
If Abs(numb - numbers(i)) < Abs(numb-numbers(closest)) Then closest = i
Next
Dim val() As Int = Array As Int(-1,-1,0,1,1,2,2)
Utils.RightTextValue = val(closest)
'Utils
Public Scale As Double = 1
Public RightTextValue As Int = 0
Sub getTextSize(size As Int) As Int
Return size * Scale + RightTextValue
End Sub