Public Sub SetTypeface(Font As Typeface)
Dim R As Reflector
R.Target = Font
Dim RealTypeface As Object = R.RunMethod("getObject")
R.Target = TP ' TP is class private variable of type Object instanced with R.CreateObject("android.text.TextPaint")
R.RunMethod2("setTypeface", RealTypeface, "android.graphics.Typeface")
End Sub