برای تغییر textsize عنوان های تب ها فقط کافیه به همین sub یک آرگومان دیگه اضافه کنین
به این صورت:
Sub SetTypeface(parent As Panel, t As Typeface,txtsize As Int)
For Each v As View In parent
If v Is Label Then
Dim lbl As Label = v
lbl.Typeface = t
lbl.TextSize = txtsize
Else If v Is Panel Then
SetTypeface(v, t , txtsize)
End If
Next
End Sub
,و هنگام فراخوانی این sub به آرگومان آخر یک عدد بدین(این عدد همون textsize دلخواه شماست)
SetTypeface(TabLayout, Typeface.LoadFromAssets("iransans.ttf"),14)