Sub DrawMultilineText(Canv As Canvas, Text As String, x As Float, y As Float, Typeface1 As Typeface, textSize As Float, Color As Int, Align1 As String, Space As Float)
Dim lineHeight As Float = Canv.MeasureStringHeight(Text, Typeface1, textSize)
For Each line As String In Regex.Split(CRLF, Text)
Canv.DrawText(line, x, y, Typeface1, textSize, Color, Align1)
y = y + lineHeight + Space
Next
End Sub