Sub getTextHeight(content As String,fo As Font,LbWidth As Float) As Float
Dim tmpString As String = "大"
Dim str() As String = Regex.Split(Chr(10),content)
Dim height As Float
Dim number As Int
Dim fontHeight As Float = tmpString.MeasureHeight(fo)
For Each s As String In str
number = s.MeasureWidth(fo)/LbWidth + 1
height = height + number*fontHeight
Next
Return height + fontHeight
End Sub