German Textgröße in xCustomListView Labels paßt nicht immer

'User-Schriftgröße auf Normal zurücksetzten.
Sub SetFontsizeActivity(act As Activity)
    Dim access As Accessiblity
    Dim fscale As Float
    fscale = access.GetUserFontScale

    If fscale <> 1 Then

        For Each v As View In act.GetAllViewsRecursive
            If v Is Label Then
                Dim lbl As Label = v
                lbl.TextSize = NumberFormat2(lbl.TextSize / fscale,1,0,0,False)
            Else If v Is Button Then
                Dim s As Button = v
                s.TextSize = NumberFormat2(s.TextSize / fscale,1,0,0,False)
            End If
        Next

    End If
End Sub

yourlabel.Height = su.MeasureMultilineTextHeight(yourlabel, yourlabel.text)