Sub FontFromFile(Dir As String, FileName As String) As Typeface
Dim R As Reflector
Return R.RunStaticMethod("android.graphics.Typeface","createFromFile",Array As String(File.Combine(Dir,FileName)),Array As String("java.lang.String"))
End Sub
Sub CreateTypefaceFromFile(Dir As String, FileName As String) As Typeface
Dim r As Reflector
Return r.RunStaticMethod("android.graphics.Typeface", "createFromFile", _
Array As Object(File.Combine(Dir, FileName)), Array As String("java.lang.String"))
End Sub