Sub ScaleText(btn As Button, V As View)
Dim btnCanvas As Canvas
Dim testo As Float
Dim fontsize As Int
btnCanvas.Initialize(V)
testo=btnCanvas.MeasureStringWidth(btn.Text,Typeface.SANS_SERIF,btn.TextSize)
fontsize=btn.TextSize
Do While(testo<(btn.Width/1.76))
fontsize=fontsize+1
testo=btnCanvas.MeasureStringWidth(btn.text,Typeface.SANS_SERIF,fontsize)
Loop
Do While(testo>(btn.Width/1.76))
fontsize=fontsize-1
testo=btnCanvas.MeasureStringWidth(btn.text,Typeface.SANS_SERIF,fontsize)
Loop
btn.TextSize=fontsize
End Sub