Set all the elements to a typeface

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   SetTypeface(Activity, Typeface.DEFAULT_BOLD)
End Sub

Sub SetTypeface(parent As Panel, t As Typeface)
   For Each v As View In parent
      If v Is Label Then
         Dim lbl As Label = v
         lbl.Typeface = t
      Else If v Is Panel Then
         SetTypeface(v, t)
      End If
   Next
End Sub