Sub TextToBitmap (s As String, FontSize As Float) As Bitmap
Dim bmp As Bitmap
bmp.InitializeMutable(32dip, 32dip)
Dim cvs As Canvas
cvs.Initialize2(bmp)
Dim h As Double = cvs.MeasureStringHeight(s, Typeface.FONTAWESOME, FontSize)
cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, Typeface.FONTAWESOME, FontSize, Colors.White, "CENTER")
Return bmp
End Sub
'Typeface.FONTAWESOME
'Typeface.MATERIALICONS