Sub GetTextHeight(BG As Canvas, DesiredHeight As Int, Text As String, theTypeface As Typeface, IsYaxis as boolean = true ) As Int
Dim temp As Int,CurrentHeight As Int
Do Until temp >= DesiredHeight
CurrentHeight=CurrentHeight+1
If IsYaxis Then
temp = BG.MeasureStringHeight(Text, theTypeface, CurrentHeight)
Else
temp = BG.MeasureStringwidth(Text, theTypeface, CurrentHeight)
End If
Loop
If temp>Abs(DesiredHeight) Then CurrentHeight=CurrentHeight-1
Return CurrentHeight
End Sub