'draw multline
public Sub drawMultiText(acontent As JavaObject,afont As JavaObject,asize As Float,aleft As Float,atop As Float,aLine As Float,atext() As String) As Float
For i = 0 To atext.Length-1
Dim txt As String = atext(i)
drawText(acontent,afont,asize,aleft,atop,txt)
atop = atop - aLine
Next
Return atop
End Sub