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