Sub LoadTypefaceFromFile(Dir As String, FileName As String) As Typeface
Dim jo As JavaObject
jo.InitializeStatic("android.graphics.Typeface")
Return jo.RunMethod("createFromFile", Array(File.Combine(Dir, FileName)))
End Sub
'usage example
Dim tf As Typeface = LoadTypefaceFromFile(File.DirRootExternal, "papercuts-2.ttf")
Label1.Typeface = tf